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PREFAZIONE 



Poco meno di un anno fa la GREMESE EDITORE ha saputo 
proporre, finalmente in italiano, una dozzina di agili e divertenti 
volumetti per “giocare" con il computer nella “Computer Ga- 
mes Series". 

Il successo, prevedibile ma confortante in questo momento 
un po’ oscuro per l’editoria italiana, ci ha confermato che la via 
intrapresa era giusta e praticabile. 

Oggi, con questa “Computer School Series” proponiamo a 
quella che ormai è una sterminata falange di possessori di 
“piccoli” computer di voler fare un passo più avanti anche sul 
piano culturale. 

Reputiamo, infatti, che tutto il sapere tradizionale, con tutte 
le sue ampie e poliedriche sfaccettature, debba essere “rivi¬ 
sitato" con l'ausilio dei computer. 

Ogni elaboratore elettronico, per piccolo che sia, è un mez¬ 
zo potente che sin d’ora, ma ancora di più nel futuro, ci servirà 
momento dopo momento, come trampolino di lancio per la no¬ 
stra fantasìa, come amplificatore per la nostra intelligenza e 
come “ordinatore" per il nostro sapere. 


g.c.z. 
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INTRODUZIONE 


Caro lettore, imparando ad utilizzare un computer hai dimo¬ 
strato di volere e di saperti lanciare nel futuro dell'umanità, af¬ 
fermando il diritto dell’uomo di avventurarsi nell’ignoto, di in¬ 
ventare l'impossibile. 

Se hai comprato questo volume ti ringraziamo, se te lo han¬ 
no regalato speriamo che vorrai e saprai dedicargli alcune ore 
del tuo tempo. Noi, gli Autori, tentiamo una impresa difficile 
che reputiamo meritevole. La Fisica, con tutti i suoi formalismi, 
con tutta la sua gabbia di strutture astratte è - e lo sarà sem¬ 
pre - la costruzione più orgogliosa che l’umanità ha saputo 
creare per comprendere la natura, per assoggettarla al suo vo¬ 
lere. 

Poche generazioni sono passate da quando i venti desertici 
rendevano arsa la pelle dell’uomo appena uscito dalle caverne 
o da quando la neve ghiacciata gelava le sue membra mala¬ 
mente coperte. L’uomo imparando a conoscere ha non solo 
saputo difendersi ma anche a non farsi più intimidire dal buio 
della notte e dell'ignoto perché ha cercato e trovato dentro di 
sé la divina scintilla della possibilità di capire e del sapere di 
poter fare. 

Per te a cui non sono più oscuri i meandri dei listati del BA¬ 
SIC, per te le cui agili dita volano sui tasti alfanumerici o del 
modo grafico è venuto un momento importante in quanto sei 
ormai pronto ad affrontare l'antico monolite della scienza della 
Fisica. 

Queste pagine - troppo poche in verità - devono servirti 
come trampolino di lancio; vivile ma sii pronto a lanciarti oltre. 

Tu, oggi, hai una possibilità quasi unica nella storia dell’u¬ 
manità in quanto puoi integrare il passato per costruire il fu¬ 
turo. Quel futuro che sarà quello che vorrai e saprai costruire 
per te e per l'umanità intera. 

Inizia: l’antica scienza della Fisica, patrimonio, retaggio e 
vanto della nostra civiltà, ti attende. 
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COME USARE 
I PROGRAMMI 
DI QUESTO LIBRO 


Per utilizzare i programmi di questo libro ci occorre un C-64, 
un registratore CBM oppure un registratore normale con adat¬ 
tatore ed un televisore o monitor, meglio se a colori. 

Accendiamo il C-64: apparirà sullo schermo una scritta con 
l'indicazione della quantità di memoria disponibile ed il mes¬ 
saggio "READY". 

A questo punto siamo pronti ad introdurre i nostri programmi 
copiandoli fedelmente dal libro, riga per riga e premendo alla 
fine di ogni riga il tasto /RETURN/. 

Ci potrà capitare di fare degli errori: per cancellare una riga 
basta scriverne il numero e usare il tasto /RETURN/; per cor¬ 
reggerla si può riscriverla tutta oppure riscrivere soltanto le 
parti sbagliate, con l'uso dei tasti /DELETE/ (cancella) e /IN- 
SERT/ (inserisci). Premendo /RETURN/ la riga corretta sostitui¬ 
rà la vecchia. 

Controlliamo spesso quello che abbiamo scritto dando il co¬ 
mando /LIST/ e, quando il programma è così lungo da non en¬ 
trare tutto nel video, usiamo /LIST riga iniziale - finale/ (per 
esempio /LIST 1000-1050/): potremo così controllare le righe 
comprese tra i numeri che avremo indicato. Consultiamo il ma¬ 
nuale del C-64 per maggiori informazioni sull'uso di queste 
funzioni. 


CARATTERI SPECIALI 

Il C-64 accetta all'interno di ogni stringa - dopo il segno /"/ 
(virgolette) - dei caratteri speciali, che servono in genere a 
spostare il cursore o a definire il colore in fase di esecuzione 
del programma. 

Questi caratteri speciali appaiono sullo schermo come pic¬ 
coli disegni su fondo scuro, come peraltro già indicato nel ma¬ 
nuale del COMMODORE. 

Noi abbiamo stampato i nostri programmi con una stampan¬ 
te FACIT 4511, utilizzando un programma di stampa apposito 
che sostituisce ai caratteri speciali i nomi dei tasti da usare 
per ottenerli, scritti tra parentesi quadre. 

L'esempio “STAMPA CARATTERI SPECIALI" mostra come 
appaiono sul video e nei listati di questo libro, i caratteri spe¬ 
ciali usati. 
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REM 

REM PER I LISTATI DEI PROGRAMMI DI 
REM QUESTO LIBRO E‘ STATA USATA LA 
REM STAMPANTE FACIT-4311 
REM QUESTO ESEMPIO MOSTRA COME 
REM APPAIANO I CARATTERI DI 
REM CONTROLLO SUL VOSTRO SCHERMO E 


‘CARATTERE 


REM QUALI TASTI OCCORRA USARE 

REM PER OTTENERLI 

REM SEGUENDO LE INDICAZIONI DEL 

REM LISTATO. 

REM 

REM 

REM 

REM “CARATTERE [TASTI 3 

REM 

REM 

PRINT "a [HOME] 

PRINT “U CSHIFT3 + [HOME 3 

PRINT "M tCRSRtl 

PRINT "□ CSHIFT3+[CRSRt3 

PRINT "II CCRSR4-3 

PRINT "■ CSHIFT3 + CCRSR«-3 

PRINT -a [CTRL3 + CRVS ON3 

PRINT "S [CTRL3 + CRVS OFF 

REM 

REM 

REM******************************** 

REM 

REM 

REM A VOLTE NEL LISTATO I CARATTERI 
REM DI CONTROLLO.RIPETUTI SONO 

REM INDICATI COSI': 

REM 
REM 

PRINT "UH [3 CRSR*-3 

REM 

REM 

REM******************************** 


[TASTI 3 


[HOME 3 

CSHIFT3 + [HOME 3 
[CRSRt 3 

CSHIFT 3 + [CRSR t 3 
CCRSR4-3 

CSH IFT 3 + CCRSR«-3 
[CTRL 3 + CRVS ON3 
[CTRL 3 +CRVS OFF 3 


VOLTE NEL LISTATO I CARATTERI 
DI CONTROLLO.RIPETUTI SONO 
INOICATI COSI 1 : 


C3 CRSR*-3 
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313 REM 

319 REM NON COPIATE QUESTO PROGRAMMA! 
327 REM 

331 REM******************************** 
COMMENTI 

Nei nostri programmi abbiamo introdotto righe di commento 
(sono quelle che iniziano con /REM/) e righe di separazione 
(quelle che contengono solo i due punti /:/), per mettere in evi¬ 
denza le varie parti del programma stesso. Queste righe, pur 
non influenzando il funzionamento del programma, occupano 
spazio in memoria e tempo per copiarle! 

Quando copiamo un programma potremo quindi saltare tutte 
le righe di commento o di separazione. Per facilitarci il com¬ 
pito, queste righe hanno un numero dispari, perciò copiamo 
solo le righe con i numeri pari e trascuriamo del tutto quelle 
dispari. 

Il seguente programma: 

999 REM**************************** 
1000 PRINT "PROVA" 

1003 : 

1010 STOP 

1013 REM**************************** 

deve essere perciò copiato così, eliminando tutte le righe di¬ 
spari: 

1000 PRINT "PROVA" 

1010 STOP 

in modo da risparmiare spazio in memoria e tempo nel copiar¬ 
lo. 


MEMORIZZARE 

Dopo aver scritto un programma, come prima cosa "salvia¬ 
molo" su nastro. Questo si fa con il comando /SAVE "nome”/. 
Scegliamo per i nostri programmi dei nomi brevi e che indichi¬ 
no chiaramente di che programma si tratta: ci sarà, più facile 
ricordarli ed usarli. 

Salviamo il programma su nastro prima ancora di provarlo: 
infatti un errore anche stupido nel programma può causarne la 
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distruzione, e, se non ne avremo una copia su nastro da rica¬ 
ricare, dovremo ricominciare a scriverlo. 

Dopo aver salvato il programma possiamo provarlo: diamo il 
comando /RUN/ e controlliamo che non ci siano indicazioni di 
errore e che lo schermo si presenti esattamente uguale alle fi¬ 
gure riportate come esempio per ciascun programma: sono 
l'esatta riproduzione di guanto appare sullo schermo, ottenute 
con un programma apposito. Ricontrolliamo accuratamente le 
righe che danno origine a messaggi di errore, in quanto è fa¬ 
cile, anche mettendoci la massima attenzione, fare una svista: 
basta saltare una virgola! Proviamo tutte le funzioni di un pro¬ 
gramma, e controlliamone i risultati. Quando siamo ben certi 
che il programma è a posto, salviamolo in maniera definitiva. 
Vi consigliamo di registrare i programmi almeno due volte, su 
due cassette diverse; non si sa mai, una cassetta potrebbe 
danneggiarsi e perderemmo il nostro programma! Quindi due 
copie su due cassette: una da usare comunemente, l'altra da 
tenere da parte, di riserva. 

SUBROUTINES 

I primi programmi da copiare sono le subroutines dell'ap¬ 
pendice. Saranno usate da tutti gli altri programmi. Copiamole 
e registriamole (su due cassette) possibilmente all’inizio del 
nastro poiché le useremo spesso: così ci sarà più facile ritro¬ 
varle. 

Diamo loro il nome di SUBROUTINES. 

Quando vogliamo copiare un programma di questo libro o 
quando vogliamo scrivere un nostro programma che le utilizzi, 
per prima cosa, carichiamo le subroutines in memoria, con il 
comando /LOAD “SUBROUTINES"/ - poi scriviamo il program¬ 
ma e registriamo di nuovo tutto il nome del programma che 
abbiamo scritto. 

Per usare in seguito questo programma ricarichiamolo in 
memoria e quando appare la scritta /READY/, scriviamo sem¬ 
plicemente /RUN/: il programma funzionerà. 

RICORDIAMOCI DI: 

■ Caricare le subroutines 

■ Copiare solo le righe pari 

■ Fare attenzione ai caratteri speciali 

■ «Salvare» il programma appena scritto 

■ Provare attentamente i programmi 

■ Registrare definitivamente due volte 
su due cassette diverse. 
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MECCANICA 



La Meccanica è la prima parte della Fisica che si affronta 
nel curriculum scolastico italiano. Le sue tradizionali divisioni 
in Cinematica, Statica e Dinamica creano però qualche proble¬ 
ma a chi inizia. Intendiamoci: la divisione è del tutto corretta 
sotto l'aspetto logico ma l’eleganza matematica di voler intro¬ 
durre e trattare a poco a poco le grandezze, a cominciare dal 
tempo e dallo spazio, crea un impatto certamente troppo 
astratto a chi per età o per cultura non è ancora abituato ad 
utilizzare schemi sintetici di pensiero. 

La Fisica, d’altronde, ha sempre avuto due anime. 

Da un lato l’anima “tecnica”, con tutto il suo bagaglio di 
“macchine semplici”, volute dalla necessità e dal vantaggio di 
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usare forze molto più potenti di poche braccia umane e dal 
piacere innato dell'homo faber di costruire, organizzare, far 
funzionare. 

Dall’altro lato l'anima teorica, quella capace di innalzarsi ol¬ 
tre la complessità delle cose materiali, intuendo e realizzando 
eleganti e cristallini grattacieli di pensiero del tutto liberi e sce¬ 
vri di inutili complicazioni, nel sogno tutto umano di capire le 
realtà più profonde, le ultime. 

CINEMATICA 

La prima parte in cui è formalizzata la Fisica classica inizia 
con la Cinematica, con un punto immateriale lanciato a percor¬ 
rere un certo spazio in un certo intervallo di tempo, eterno nel 
suo moto uniforme garantito dal principio di inerzia, enunciato 
per la prima volta in modo chiaro da Galileo. 

Poi le cose si complicano, intervengono delle "cause" ed 
ecco il punto immateriale deviare dalla sua traiettoria origina- 
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ria, variare il suo moto. Via via vengono introdotti i moti unifor¬ 
memente accelerati, quelli ritardati, quelli circolari ed infine 
quelli armonici, i più complessi. Questa parte della Cinematica 
è però intuibile, le sue equazioni orarie facili; per i calcoli ba¬ 
sta generalmente la solita calcolatrice tascabile. 

Noi, con il nostro computer vogliamo andare oltre, spingen¬ 
doci nel regno dei moti composti, in cui un punto deve "se¬ 
guire" contemporaneamente due moti. Andiamo perciò a vede¬ 
re il moto dei sassi che, da fanciulli, ci piaceva lanciare il più 
in alto ed il più lontano possibile. 

I MOTI COMPOSTI 

L'argomento scelto per l'applicazione con il computer nel¬ 
l’ambito della Cinematica è uno dei più conosciuti moti compo¬ 
sti. Se si lancia un grave, un sasso o un proiettile di cannone 
con un certo angolo rispetto alla superficie della terra, lo si ve- 



START T = 0 

END T = 2.5 


X (T> = 6*COS C.785398163 ) *T 
Y < T)= 19+6*SIN<.785398163)*T-1/2*9.8066 
5*T*T 


******* 


INTRODUCI IL VALORE 
DELL 1 INCREMENTO i 
STEP = .04 
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drà muovere secondo una traiettoria parabolica. Dopo l'avvio 
dato dalla forza che agisce nella fase iniziale il corpo dovreb¬ 
be muoversi di moto rettilineo uniforme. Intervengono, però, al¬ 
tre forze: vi è l’attrito che esercita il mezzo attraversato, nella 
fattispecie l'aria - noi lo consideriamo trascurabile -, vi è poi 
la potente forza di gravità che cercherà, riuscendovi, di ripor¬ 
tare sulla superficie della terra il grave che era stato lanciato 
verso l’alto. 

Volendo analizzare il particolare moto composto di cui si oc¬ 
cupa il programma vanno prese in considerazione innanzi tutto 
l’altezza da cui il sasso è stato lanciato, poi la forza di gravità 
che, come si sa, è un po’ diversa nei vari luoghi della superfi¬ 
cie della Terra - per non parlare della Luna e degli altri pianeti 
- e, inoltre vi è da considerare che il lancio del grave avviene 
con una certa velocità dovuta all’azione di una forza che ha 
impresso alla massa di quel particolare sasso una accelerazio¬ 
ne. 

È interessante notare una cosa: tutti noi abbiamo cercato di 
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lanciare i nostri sassi il più lontano possibile, verso l'orizzonte, 
e tutti noi ci siamo resi conto dopo un po' di prove - anzi mol¬ 
te - che per lanciare il sasso più lontano degli altri occorreva 
lanciarlo verso l’alto, ma non tanto in alto, altrimenti sarebbe 
cascato quasi sulla nostra testa - ecco l’importanza dell’ango¬ 
lo di lancio ci siamo anche resi conto che, in funzione della 
forza dei muscoli della nostra spalla e del nostro braccio, biso¬ 
gnava scegliere il "proietto" in modo che non fosse né troppo 
leggero né troppo pesante - ecco l'influenza della massa del 
grave lanciato in funzione della forza disponibile -, ed infine ci 
siamo resi conto che il sasso andava più lontano se ci erava¬ 
mo arrampicati su di un costone di roccia ma, anche, che era 
praticamente inutile salire oltre una certa altezza in quanto alla 
fin fine il sasso precipitava quasi verticalmente - ecco l’in¬ 
fluenza dell’altezza del punto di lancio rispetto al punto di arri¬ 
vo. 

Questa parte della Fisica è servita anche per la balistica, per 
colpire più lontano e più esattamente con un proiettile di can- 
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none; serve, però, anche e soprattutto, per svincolare oggi 
dalla madre-terra i missili e i razzi che portano fragili navicelle 
spaziali oltre i confini troppo ristretti del nostro pianeta e servi¬ 
rà domani - lo speriamo e ce lo auguriamo - a lanciare le 
grandi astronavi che faranno sciamare la nostra umanità nel 
nero velluto dello spazio trapuntato di stelle lontane. Anche al¬ 
lora, però, le eterne leggi della Fisica governeranno questo fe¬ 
nomeno, così come avevano governato il sasso lanciato dalla 
parete di roccia, lontano, verso le azzure onde del mare, più 
veloce e più in alto dello stridulo volo di bianchi gabbiani. 


99 

100 F$="?":E$="?" 

105 : 

109 REM*«HHHHHr*«*********HHI+****#***************»»***«** 


TRAIETTORIA 



T= .46 

X= 1.95161472 
Y= 19.9140711 
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no PR$=wri piani" 

117 REH*«**HHHHHh****HHHt****HHHt+****M*****»****«***W**** 

119 : 

120 GOSUB 5DO 
125 : 

200 PN$(1)="EQUAZI0NI NOTO" 

210 PN$(2)="TRAIETT0RIA" 

220 PNÌ(3)="-FINE--" 

245 : 

300 PN=3:GOSUB 9400 
305 : 

310 IF PS=3 THEN 5000 
320 ON PS GOTO 1000,2000 
335 : 

500 GOSUB 8000 

510 RC=13:G0S0B 8100:PRINT " XCT)= ";F$ 

520 PRINT " Y(T»= ";E$:RETURN 
995 : 

1000 PR$=PN$(1):G0SUB 500 
1005 : 

1010 !H$= "SCRIVI L'EQUAZIONE"sH2$*"PARAMETRICA" 

1020 N3$="X= 1=1:GOSUB 9000 

1030 IF RI$="N" THEN 
1075 : 

1080 F$=ST$ 

1095 ! 

1130 N3$="Y= 1=2;GOSUB 9000 

1140 IF RI$="N” THEN 110 

1160 PI$="6000 CX="*F$+":CY="+ST$ 

1170 P2$="F$="+CHR$(34)+F$+CHR$(34) 

1180 P3$=‘T2 CRSRT1E$="+CHR$(34)+ST$+CHR$(34}+";G0T0110" 

1190 GOSUB 9200 
1195 : 

2000 PR$=PN$(PS);GOSUB 500 
2005 : 

2100 GOSUB 4000 
2105 : 

2110 GOSUB 4200 
2425 : 
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2450 GOSUB 9800 
2455 : 

2460 FOR 1=9152 TO 14599 STEP 320:F0R K=I IO (1+7) 

2470 POKE K,48:NEXT jNEXT :POKE 9158,30:F0R 1=0 TO 39 
2475 : 

2480 POKE 14599+8*1,255:NEXT :XX=308:YY=165:GOSUB 9700 

2490 X1=0:Y1=6:G0SUB 9600:XH=0:YH=1:H3$="Y":GOSUB 9500 

2500 YH=21:XH=39:M3$="X":GOSUB 9500 

2504 YH=19:XH=1:M3t=STR$(VR(6)):GOSUB 9500 

2510 YH=2:XH=0:«3*=STW(VR(7» ; GOSUB 9500:YH=21:XH=0 

2515 : 

2520 t13$=STR$(VR(4))sGOSUB 9500:H3*=STR$(VR(5)) 

2530 XH=38-LEN(H3$):GOSUB 9500 
2535 : 

2610 SX=304/(VR(5)-VR(4)) 

2620 SY=135/(VR(7)-VR < 6)) 

2660 T=VR(1)-VR(3) 

2685 : 

2730 GOSUB 6000 
2740 PX=(CX-VR(4))*SX+5 
2750 PY=(CY-VR(6))*SY+24 
2755 : 

2800 IF PX<0 OR PX>31D THEN 3000 
2810 IF PY<0 OR PY>175 THEN 3000 
2820 XX=PX:YY=190-PY:GOSUB 9700:GOTO 3000 
2825 : 

2830 XH=25:YH=3:H3$=LEFT$("T= n +STR$(T)+" ",14) 

2834 GOSUB 9500 

2840 YH=4:M3$=LEFT$(”X= u +STR$(CX)+ n ",14) 

2844 GOSUB 9500 

2850 YH=5:N3$=LEFT$("Y= , ’+STRt(CY)+' i ",14) 

2854 GOSUB 9500 
2660 RETURN 
2875 : 

2900 I13$=LEFT$ ( M3$, 10 ) : GOSUB 9500: RETURN 
2915 : 

3000 SET 1$ 

3100 IF 1*="" THEN 3200 
3110 IF 1$="C" THEN 3230 
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3120 GOSUB 2830 

3130 GET IÌ:IF 1$="" THEN 3130 
3140 GOTO 3200 
3155 : 

3200 T=T+VR(3):IF T<=VR(2) THEN 2730 
3210 GET I$:IF 1$='“' THEN 32-10 
3230 GOSUB 9900 
3400 GOSUB 510 
3405 : 

3410 PN$(1)= 11 CAMBIO EQUAZIONI" 

3420 PN$(2)="CAMBI0 TEMPI" 

3430 PN$(3)SCAMBIO ASSI" 

3440 PN$(4:i= , 'TRAIETT0RIA 1 ' 

3450 PN$(5)="-FINE-" 

3455 : 

3500 PN=5:GOSUB 9400 
3505 : 

3510 ON PS GOTO 3810,3820,3630,3640,3850 
3515 : 

3610 GOTO 1000 

3620 GOSUB 500: GOSUB. 4000: GOTO 2450 
3630 GOSUB. 500.: GOSUB 4200:GOTO 2450 
3640 GOTO 2450 
3650 GOSUB 8000:END 
3995 : 

4000 1=1 
4005 : 

4020 Mlt="IN7R0DUCI IL VALORE" 

4030 M2Ì=’’INIZIALE 01 T: B 
4040 M3$=" START T = " 

4050 GOSUB 8800 
4055 : 

4060 M2*="FINALE 01 T:" 

4070 M3$=" END T = " 

4080 GOSUB 8800 
4085 : 

4090 M2*="0ELL'INCREMENTO:" 

4100 M3$=" STEP = " 

4110 GOSUB 8800 
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4115 : 

4120 m$="I VALORI INTRODOTTI":M2$=”” 

4130 M3$="S0N0 OK ? (S/N)":GOSUB 8400 
4140 IF RI$="N" THEN 4000 
4145 : 

4150 RETURN 
4155 : 

4200 1=4 
4205 : 

4210 M$="VISUALIZZ. TRAIETTORIA" 

4220 M2$="LI(1ITI ORIZZONTALI” 

4230 f!3$=" X,HIN = “ 

4240 GOSUB 8800 
4245 : 

4260 N3$=" X,MAX = " 

4270 GOSUB 8800 
4275 : 

4280 M2$="LIf11TI VERTICALI" 

4290 m=" Y,MIN = ” 

4300 GOSUB 8800 
4305 : 

4320 M3$=" Y,rlAX = " 

4330 GOSUB 8800 
4335 : 

4395 : 

4400 M*= B I VALORI INTRODOTTI" 

4410 N3$="S0N0 08 ? (S/N)":GOSUB 8400 
4420 IF RI$= , 'N" THEN 42'OC 
4430 RETURN 
4435 : 

5000 GOSUB SODO:END 
5005 : 

6000 CX=10:CY=T 
6010 RETURN 
6055 : 

7995 REM**************************************************** 
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NOTE AL PROGRAMMA 

!l menù del programma sui moti piani composti offre due op¬ 
zioni permettendo prima l’introduzione delle equazioni orarie 
dei moti da comporre e, successivamente, la scelta ottimizzata 
dei limiti del piano cartesiano su cui tracciare la traiettoria. 

Facciamo un esempio: siamo su di una scogliera a 19 metri 
di altezza e lanciamo un sasso con un angolo di 45° rispetto 
alla superficie del mare e con una velocità iniziale di 6 metri al 
secondo. Il sasso sarà soggetto ad un moto con traiettoria pa¬ 
rabolica dovuto alla composizione di un moto rettilineo unifor¬ 
me causato dall’inerzia e da un moto uniformemente accelera¬ 
to provocato dalla forza di gravità. Nella seconda videata ve¬ 
diamo le equazioni orarie dei moti con i valori scelti nell'esem¬ 
pio. Dopo aver selezionato l'opzione “2 - traiettoria" possiamo 
esaminare i parametri del tempo e del campionamento dei 
punti, una cui possibile scelta viene mostrata nella terza videa¬ 
ta. 

Successivamente - quarta videata - possiamo fissare i valori 
limite delle ascisse e delle ordinate. La traiettoria sarà traccia¬ 
ta punto per punto con lo "step" richiesto e, volendo, possiamo 
interrompere il programma per variare i valori delle scale di ri¬ 
ferimento - quinta e sesta videata -, con il tasto /CI. 

Oltre il particolare moto parabolico dell'esempio il program¬ 
ma si presta per qualunque composizione di moti piani, anche 
per quelli la cui traiettoria offre caratteristiche di artistica ele¬ 
ganza. 


STATICA 

La seconda parte in cui è formalizzata la Meccanica è la 
Statica. 

In questa parte la Fisica si apre alle forze. Si sta quasi con l'a¬ 
nimo sospeso di fronte ad equilibri dovuti a forze di tutte le in¬ 
tensità, da quelle infinitesimali a quelle ciclopiche. Corpi rigidi 
più indeformabili di antiche balze di granito restano immobili 
sotto le azioni contrastanti e reciprocamente annullantisi. 

Eppure, in questo luogo immutabile qualcosa incomincia a 
muoversi, preludio di quello che sarà la Dinamica. Alla fine 
della Statica compaiono le "macchine semplici", povere, facili 
cose con cui, però, l'umanità ha saputo costruire le piramidi e 
varcare gli oceani. Le leve, la ruota, il piano inclinato rappre¬ 
sentano altrettanti pioli della lunga scala che ha portato ai 
computer, quello con cui oggi possiamo ritornare ad analizza¬ 
re l'antico. 

Mentre il programma gira, dando risultati esatti con molte ci¬ 
fre decimali, ci sembrerà di ascoltare, compiendo un balzo di 
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alcuni millenni, lo stridio del grande trave con cui era necessa¬ 
rio muovere il masso troppo pesante, il cigolio dei primi assali 
di una coppia di ruote in legno in marcia su quella che solo in 
futuro sarebbe divenuta una strada e il lento scricchiolio di un 
enorme carico che un grappolo di uomini sospìngeva su di un 
piano inclinato per portarlo, poco alla volta, sempre più in alto. 


LE MACCHINE SEMPLICI 

L'argomento scelto nella Statica è costituito dalle “macchine 
semplici". 

Sono macchine semplici le leve di T, 2° e 3° genere, l'asse 
della ruota, il piano inclinato, il cuneo, la carrucola, la vite. Le 
macchine semplici affondano le loro radici nell'alba dei tempi, 
perfino un po' prima dell'epoca in cui i pre-ominidi non aveva¬ 
no ancora deciso di diventare “homo sapiens”. C'erano, fin da 


MACCHINE SEMPLICI 

1 = 

LEVA DI 

I GENERE 

2 * 

LEVA DI 

II GENERE 

3 = 

LEVA DI 

I I I GENERE 

4 = 

ASSE DELLA RUOTA 

3 = 

PIANO INCLINATO 

6 = 

-FINE- 
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allora, pesanti problemi, come il dovere - mattina e sera - 
spostare il grosso masso che faceva da porta alla casa-caver¬ 
na, come il sollevare il pesante gnu che il celebre cacciatore 
Sii era finalmente riuscito a catturare, e c’era da capire come 
impiegare quelle strane cose rotonde fabbricate dallo stregone 
Zag, visto che si potevano far rotolare senza sforzo. Le mac¬ 
chine semplici furono forse inventate per caso ma per la loro 
utilizzazione fattiva e concreta l'uomo dovette ben spremersi il 
poco cervello che a quell’epoca aveva a disposizione com¬ 
piendo un salto astratto mica male per un pre-ominide. L'unica 
energia a disposizione in quei tempi era quella dei propri mu¬ 
scoli - non si era riusciti neanche ad addomesticare il cavallo 
o il bue - ed era estremamente complesso addizionare la for¬ 
za di molti uomini con una corda a cui legare la pesante pre¬ 
da, anche perché la preistorica fune fatta di fibrille vegetali 
non tensilizzate probabilmente si rompeva in continuazione! 
Forse la leva fu vista per la prima volta in natura, forse il lento 
rotolare delle pietre a valle insegnò che per la stessa china era 


LEUA DI I GENERE 


V p 
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più facile farle risalire; certo è che la ruota, con il suo asse, 
qualcuno dovè immaginarla, prendendo spunto dal rotondo 
tronco che fino ad allora si era utilizzato. 

La Fisica delle macchine semplici è molto facile e gradevole, 
la matematica impiegata è ben conosciuta e le poche variabili 
che di volta in volta intervengono possono essere facilmente 
controllate e gestite. Il programma offre un menù iniziale di 
scelta sulle più comuni macchine semplici associando i relativi 
algoritmi. 

La grafica essenziale sintetizza in modo astratto, mentale, le 
forze, i bracci, le resistenze, le potenze. Se vengono introdotti 
sufficienti valori noti si ha immediatamente il calcolo della va¬ 
riabile incognita. Il programma può essere utilizzato piacevol¬ 
mente come prima approssimazione ad un pre-dimensiona- 
mento di tipo ingegneristico. Dobbiamo alzare la lavastoviglie 
di un quintale di peso, abbiamo quel solido asse della vecchia 
tenda del soggiorno lungo due metri, dove deve essere posto 
lo sgabello-fulcro sapendo che la nostra forza peso è di soli 62 



se vuoi 

CONTINUARE 
PREMI UN TASTO 
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chilogrammi? Tutto semplice... Eppure c’è chi si ostina ad al¬ 
zare la lavastoviglie con le mani nude, senza leva... Peggio 
per lui. 


1 09 REi1***«#«*****#*****««****HHr*4**«HHHr#**#**«****« 

110 PR$="MACCHINE SEMPLICI" 

111 REt|WWH»HWWWtH*WWHWWmH< HI«HHHHt 

119 : 

120 60SLÌB 8000 
125 : 

200 PN$C1)="LEVA DI I GENERE" 

210 PN$(2)="LEVA DI II GENERE" 

220 PN$(3)="LEVA DI III GENERE" 

230 PN$(4)="ASSE DELLA RUOTA" 
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240 PN$(5)="PIANQ INCLINATO" 

250 PN$(6)="—FINE-" 

255 : 

260 PN$(7)=" RESISTENZA = " 

280 PN$(9)=" POTENZA = “ 

300 PN=6:G0SUB 9400:1F PS=6 THEN GOSUB 8000:END 
305 : 

310 PR$=PN$(PS):60SUB 9800 
315 : 

320 RESTARE 

324 IF PS>1 AND PS<6 THEN X$=CHR$(PS+63)sGOGUB 4500 

325 ; 

330 READ PN$(8),PN$(10),EM 

340 FOR K=1 TO EH:SET A$:IF A$="C" THEN 410 
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345 : 

350 READ GF:0N GF60T0 370,380,334,388 
360 READ XX,YY:G0SUB 97CQ:GQT0 390 
370 READ X1,Y1:S0SUB 9600:G0T0 390 
380 READ XC,YC,ZC:G0SUB 40GQ:G0T0 390 
384 READ XH,YH,H3$:G0SUB 9500:GOTO 390 

388 FOR 1=0 TO 22:P0KE 12104+1*8,255:NEXT :GOTO 390 

389 : 

390 NEXT K 

400 GEI A$:IF A$<>"C" THEN 400 
410 GOSUB 9900 
460 1=1 :CC=0 

500 M1$="INTR0DUCI SOLO I VALORI” 

510 M2$="N0TI: 11 
515 : 

520 FOR J=1 TO 4 
530 H3$=PN$(6+J>:GOSUB 5000 
540 IF Rl$= i! N" THEN K=5 
550 NEXT :IF RI$= n N" THEN 460 
555 : 

600 ON CC GOTO 1000,1100,1200,1300 
■605 : 

1000 VR(1)=VR(3)*VR<4)/VR(2):GOT0 2000 
1100 VR(2)=VR(3)*VR(4)/VR(1):GOTO 2000 
1200 V R(3)=VR(1)*VR(2)/VR(4):GOT0 2000 
1300 VR(4)=VR(1> *VR(2>/VR <3):GOTO 2000 
2000 PRINT 

2010 PRINT " ";PN$(6+CC);VR(CC) 

2100 f12Ì="C0NTINUARE":G0SUB 8200 
2110 GOTO 110 
2115 : 

4000 FOR CI=1 TO 360 STEP 5:TT=CI*CPI3/180 

4010 XX=ZC*COS(TT)+XC 

4020 YY=ZC*SIN(TT)+YC 

4030 GOSUB 9700:NEXT : RETURN 

4035 : 

4500 RESTORE 

4510 READ A$:1F A$=X$ THEN RETURN 
4520 GOTO 4510 


29 





|4 


--- 


--- 

--- 

FISICA CON C-64 

--- 

--- 

--- 

--- 

--- 

m 















4525 : 

5000 soste 8800 
5010 IF RI$="S" THEN RETURN 
5020 IF CCOQ THEN RETURN 
5030 CC=I-1:R1$="S":RETUffr! 

5055 : 

5085 REM****************»*************#*****»******-»******** 
5095 : 

8000 DATA "BRACCIO RES. = "/'BRACCIO FOT. = ",17,4 
8010 DATA 0,72,98,1,0,24,0,69,114,1,3,8,1,3,-8 
8020 DATA 0,200,96,1,-4,8,1,8,0,1,-4,-8 
8030 DATA 0,256,96,1,0,48,0,253,138,1,3,6,1,3,-6 
6040 DATA 3,10,14,P,3,33,17,R,A 
6095 : 

6100 DATA "BRACCIO RES. = "/'BRACCIO FOT. = ",17,4 
6110 DATA 0,72,96,1,-4,8,1,8,0,1,-4,-8 
6120 DATA 0,160,96,1,0,32,0,157,122,1,3,6,1,3,-6 
6130 DATA 0,256,96,1,0,-16,0,253,86,1,3,-6,1,3,6 
6140 DATA 3,21,15,R,3,33,10,F,B 

6199 : 

6200 DATA "BRACCIO RES. = "/'BRACCIO FOT. = ",17,4 
6210 DATA 0,72,96,1,-4,8,1,8,0,1,-4,-8 

6220 DATA 0,160,96,1,0,32,0,157,122,1,3,6,1,3,-6 
6230 DATA 0,256,96,1,0,-16,0,253,86,1,3,-6,1,3,6 
6240 DATA 3,21,15,P,3,33,10,R,C 
6245 ; 

6300 DATA " RAGGIO RES. = RAGGIO FOT. = ",15 
6310 DATA 2,200,96,10,2,200,96,20,0,2D0,96,0,190,96 
6320 DATA 1,0,45,1,3,-6,0,190,142,1,-3,-6,0.220,96 
6330 DATA 1,0,25,1,3,-6,0,220,122,1,-3,-6 
6340 DATA 3,22,16,R,3,29,14,P,0 
6345 : 

6400 DATA " ! ALTEZZA = LUNGHEZZA = ",21,4 

6410 DATA 0,220,96,1,0,-60,1,-100,60 

6420 DATA 0,160,71,1,10,-6,1,-4,-6,1,-10,6,1,4,6 

6430 DATA 0,165,65,1,0,22,1,3,-6,0,165,88 

6440 DATA 1,-3,-6,0,168,61,1,30,-18,1,-4,0 

6450 DATA 0,198,44,1,-2,3 

6460 DATA 3,24,4,P,3,22,10,R 
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7095 : 

7099 REM<HHW**HHr***»****«****HHHr*#**«*****Hrt******«***M* 


NOTE AL PROGRAMMA 

Le opzioni proposte dal menù iniziale permettono di sceglie¬ 
re una delle cinque più comuni ed utilizzate “macchine sem¬ 
plici". 

Vogliamo esaminare il comportamento di una leva di primo 
genere con il seguente esempio: quanto deve essere lungo il 
braccio della resistenza se dobbiamo equilibrare un peso di 
100 chilogrammi con una "potenza" di 62 chilogrammi avendo 
un braccio utilizzabile della potenza di un metro? La seconda 
e la terza videata ci mostrano i valori impostati e, naturalmen¬ 
te, con l'immediatezza propria del computer, il risultato cerca¬ 
to. La quarta videata permette di valutare la potenza da ap¬ 
plicare alla circonferenza della ruota in funzione della resisten¬ 
za posta sull’asse e del rapporto tra i due raggi. Si tratta del 
classico esempio dell'uso di un argano di sollevamento; 150 
chili possono essere sollevati con una potenza di soli 30 chi¬ 
logrammi se il rapporto tra i raggi dell’asse e della “ruota” 
esterna è di 1:5. 

Nell’ultima videata di questo programma viene proposta l’ul¬ 
tima macchina semplice della serie: il piano inclinato. Anche 
per quest’ultima “macchina" valgono le norme di introdurre tutti 
i valori necessari e sufficienti meno uno per avere subito il cal¬ 
colo del parametro incognito. 

Sappiamo che esistono anche altre macchine semplici come 
la vite, il cuneo, la carrucola; perchè non proviamo, dopo aver 
analizzato il funzionamento del programma a rendere fruibili 
sul cbmputer anche quest’altre "macchine"? 
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FLUIDICA 



Gli stati della materia sono tre: solido, liquido e gassoso 
Questa distinzione è ben nota a tutti anche se negli ultimi tem¬ 
pi si è dovuto aggiungere un altro stato, quello di ‘‘plasma", in 
cui la materia con i suoi atomi spogliati delle loro coorti elettro¬ 
niche si trova aN'interno delle incandescenti fornaci del Sole, 
delle stelle ed anche di qualche laboratorio sulla Terra che 
“gioca” con la Fisica delle alte energie. 

Restiamo, però, nel tradizionale: da un lato i solidi e dall’altro 
i fluidi, siano essi liquidi o gas. Bene: la Meccanica ci ha detto 
tutto dei solidi, della loro massa, di come le forze agiscono fa¬ 
cendoli muovere, accelerare, vibrare. Lo stato solido è una 
cosa concreta, tangibile, che si può toccare con mano, com- 










FLUIDICA 


UMBimine 


prensibile. Quando si passa alla Fluidica le cose diventano più 
sfuggenti. Con le nostre mani riunite a coppa possiamo cattu¬ 
rare un po’ d'acqua, ma l’elemento liquido troverà subito il 
modo di scorrer via, con l'estrema mobilità di chi ha un volume 
ma non una forma propria. Non parliamo poi dei gas; forse l’u¬ 
nica occasione per molti di noi di impossessarcene è stata nel 
chiuderli all’interno dei variopinti palloncini di gomma con cui 
giocavamo da bambini. Questi benedetti gas non hanno infatti 
una forma propria e l'unico modo di tenerli "fermi" consiste nel 
chiuderli in un recipiente ermetico. 

Verrebbe quasi la voglia di lasciar perdere, di ritornare ai 
solidi, alla loro concretezza. Però... si può mai trascurare l’im¬ 
mensità degli oceani che coprono la maggior parte della su¬ 
perficie del nostro pianeta e si può mai trascurare il fatto che 
c'è gas e gas e che senza il giusto quantitativo di ossigeno 
possiamo al massimo sopravvivere per un paio di minuti? I flui¬ 
di sono importanti e giustamente la Fisica si è interessata a 
loro da molto tempo. Nel campo dei fluidi non conviene parlare 



ACQUA DISTILLATA 
ACQUA DI MARE (MEDIA) 
BENZINA (MEDIA) 

GASOLIO (MEDIA) 

OLIO (MEDIA) 

GLICERINA 
MERCURIO 

ARIA (MEDIA) 

—NON NOTO/ALTRI 


PUOI USARE UNA DI QUESTE 
SOSTANZE OPPURE INTRODURRE 
DIRETTAMENTE LA DENSITÀ ' 


SCEGLI CH 
UUOI FARE •> 
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solo di forza ma di una nuova grandezza, la pressione, che 
sappia tenere conto della forza e della superficie insieme. Con 
il possesso di questa nuova conoscenza si può affrontare lo 
sfuggente mondo dei fluidi anche se, ancora oggi, resta una 
gran confusione tra le sue troppe unità di misura: Atmosfere, 
Bar, Chilogrammi al centimetro quadro, Pascal, P.S.I. e chi più 
ne ha più ne metta, creando una spiacevole confusione. Forse 
è proprio per questo che quando si controlla la pressione di 
una gomma di un'auto si dice solo il valore, 1,5, 1,8, dimen¬ 
ticandosi pudicamente di dire l'unità di misura. 

La Fluidica merita di essere approfondita in quanto non ha 
molte leggi e quelle esistenti non sono neanche particolarmen¬ 
te difficili; sta di fatto, però, che princìpi come quello di Pascal 
e di Archimede, leggi come quella di Stevino, le ritroviamo ad 
ogni piè sospinto nel corso della nostra vita. 






FLUIDICA 




IL PRINCIPIO DI ARCHIMEDE 

Nella Fluidica l’argomento scelto è il più classico e forse il 
più conosciuto. Si narra che Archimede trovasse il principio 
che reca il suo nome immerso nella sua vasca da bagno. Re¬ 
spirando si era reso conto che a polmoni pieni era quasi 
espulso dall'acqua, con una forte tendenza a galleggiare men¬ 
tre, viceversa, a polmoni vuoti "cadeva" all’interno del liquido 
che, dato il prestigio di cui lo scienziato già all’epoca godeva 
forse era un’acqua con aggiunta di sali e di oli balsamici. 

Ci auguriamo che le sue ancelle non si siano spaventate 
troppo nel vederlo schizzar via dalla vasca - la storia ci tra¬ 
manda così - gridando “eureka”, ho trovato. Sta di fatto che 
Archimede aveva veramente trovato qualcosa di importante 
nella sua vasca: la possibilità, utilizzando conoscenza e ragio¬ 
ne, di scoprire quella che alla sua epoca era una delle più 
conclamate truffe: mischiare l’argento all’oro e vendere poi tut¬ 
to come oro zecchino. Una statuetta forse del dio Mercurio. 



= GHIACCIO 
= SUGHIRO 


(MEDIA) 


LEGNO-ABETE (MEDIA) 
LEGNO-TEAK (MEDIA) 
ORO 

PLATINO 

ELIO 

IDROGENO 

— NON NOTO/ALTRI — 


PUOI USARE UNA DI QUESTE 
SOSTANZE OPPURE INTRODURRE 
DIRETTAMENTE LA DENSITÀ' 
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noto dio dei ladri, commissionata dal potente dell'epoca a dei 
commercianti di cui non era particolarmente nota la specchiata 
virtù poteva, prima di Archimede, essere fusa in oro e in ar¬ 
gento senza che vi fosse alcuna possibilità di sapere quanta 
parte dei due metalli era stata impiegata. Già da allora si sa¬ 
peva che l’oro, metallo nobile per eccellenza, aveva una den¬ 
sità e di conseguenza un peso specifico molto alto mentre l’ar¬ 
gento, anche esso nobile ma un po’ meno, aveva una densità 
ed un peso specifico inferiori. Quando Archimede immergeva 
un corpo - il suo! - in un liquido notava che la spinta ricevuta 
dal basso verso l'alto variava in funzione del liquido spostato: 
era alta per il corpo con i polmoni pieni e quindi con volume 
maggiore ed era bassa con i polmoni “sgonfi" e perciò con un 
volume complessivo del corpo inferiore. L’intuizione che fosse 
proprio il volume del liquido spostato a procurare la spinta di 
galleggiamento più o meno grande valse ad Archimede il po¬ 
sto nella storia che giustamente gli compete. 

Si possono immergere in un liquido corpi di volume uguale 



DEM. CORPO 
= 19.25 
UOL. CORPO 
= 1.2987013 
PESO CORPO 
= 25 
SPINTA 

=-23.6623377 

DEM. FLUIDO 
= 1.03 

AFFONDA 
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ma di densità diverse. Supponiamo ad esempio di fabbricarci 
un cubo di legno di abete ed un altro di pari volume di piom¬ 
bo. L’esperienza ci insegna che il cubo di legno galleggerà 
mentre quello di piombo andrà rapidamente a fondo. Il pro¬ 
gramma ci proietta molto elegantemente in un laboratorio, con 
i suoi becker - il bicchiere con gli orli svasati ed il beccuccio 
per versare - con a disposizione i nostri campioni di sostanze 
di una certa densità. 

Con il programma possiamo scegliere il fluido che più ci pia¬ 
ce e metterci la sostanza che più ci aggrada in modo da poter 
tranquillamente osservare che cosa succede. 

Il corpo affonderà oppure rimarrà a galla e noi potremo per¬ 
fino sapere quale percentuale del suo volume rimarrà emersa. 
Siamo o non siamo un paio di millenni di conoscenze dopo il 
grande Archimede? 



SE VUOI 
CONI I NUORE 
PREMI UH TASTO 
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109 

110 PR*="LE6GE DI ARCHIMEDE 1 ' 

119 : 

120 60SUB 7000 
125 : 

200 PRINT " UN CORPO IMMERSO IN UN FLUIDO" 
210 PRINT :PRINT " RICEVE UNA" 

220 PRINT :PRINT " SPINTA VERSO" 

230 PRINT ;PRINT " L'ALTO PARI" 

240 PRINT SPRINT " AL PESO DEL" 

25D PRINT SPRINT " FLUIDO" 

260 PRINT SPRINT " SPOSTATO." 

265 s 

290 AT=0:G05UB 6000 

300 M2$="CONTINUARE"sGOSUB 8200 

305 s 

1100 V1=0:V2=0 

2000 PR$="CORPO IMMERSO"sGOSUB 6300 
2005 s 

2010 PN*(1'^"GHIACCIO (ME01A) , ‘sD«l)=.9 

2020 PN$(2)="SUGHER0":D<2>=.24 

2030 PN$ ( 3)="LEGNO-ABETE (MEDIA)":D(3)=.48 

2040 PNÌ(4)="LEGN0-TEAK: (MEDIA)"sD(4)=.63 

2050 PN$(5)="0R0":D(5)=19.25 

2060 PN$(6)="PLATIN0 ,, sD(6)=21 .n 

2070 PN$(7)="ELI0"sD(7)=.0001786 

2080 PN$(8)="IDR0GEN0"sD(8)=.00006987 

2090 PNi(9)="--NON NOTO/ALTRI—" 

2095 : 

2100 PN=9sGOSUB 9400 
2110 VR(1)=D(PS)sGOSUB 8000 
2120 M1$="INTR0DUCI SOLO I" 

2130 M2$="VALORI NOTIs" 

2140 IP PS<>9 THEN 2200 
2150 M3*="DEN. CORPO= "sl=l 
2160 GOSUB 6500 
2165 s 
2200 1=2 
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2210 M3*="V0L. C0RP0= "-.GOSUB 6500 
2220 H3t= !, PESC CORPO= ":GOSUB 6500 
2230 H3$="SPINTA = 11 : GOSUB 6500 
2235 : 

2300 PR$="FLU1D0 11 : GOSUB 6300 
2305 : 

2310 PN$(1)="ACQUA DISTILLATA 51 :D<1 i=l 
2320 PN$(2)= n AC0UA DI MARE (MEDIA)":D(2)=1.03 
2330 PN*(3)="BENZINA (MEDIA)":D(3)=.72 

2340 PN$(4)="GAS0LI0 (MEDIA)":D(4)=,76 

2350 PN$(5)= !I QLI0 (MEDIA) ,, :0(5)=.9 

2360 FM$(6)="GLICERINA , ‘:D(6)=1.296 
2370 PN$(7)="MERCURI0":D(7)=13.595 
2380 PN$<8)="ARIA (MEDIA)":D(8)=.0012928 

2390 PN$(9)="—NON NOTO./ALTRI" 

2395 : 

2400 PN=9:GOSUB 9400 
2410 IF PS=9 THEN 2450 
2420 VR(5)=D(PS): GOTO 2550 
2430 M3*="FLUIOO= 1=5:GOSUB 6400 

2455 : 

2500 IF VI04 OR V2<>5 THEN 2550 

2510 RC=17:G0SUB 8100:PRINT " FLUIDO NON SPECIFICATO" 

2520 GOTO 300 

2525 : 

2550 IF Vl=l AND V2=2 THEN 3600 

2560 IF VI=1 AND V2=3 THEN 3700 

2570 IF VI=2 AND V2=3 THEN 3800 

2580 ON VI GOTO 3100,3200,3300,3400,3500 

2585 : 

3100 VR(1)=VR(3)/VR(2) 

3200 VR(2)=VR(3)/VR(1) 

3300 VR(3)=VR(2)*VR(1) 

3305 : 

3310 IF V2=0 THEN 4000 

3320 ON V2 GOTO 3100,3200,3300,3400,3500 

3400 VR(4)=VR(2)*VR(5)-VR(3) 

3500 VR ( 5 )=( VR ( 4 ) +VR ( 3) ) /VR ( 2) 

3510 GOTO 4000 
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3595 : 

3600 VR(2)=(VR(4)+VR(3))/VR(5) 

3610 GOTO 3610 
3615 : 

3700 VR(3>=VR(2)*VR <5 >-VR(4> 

3710 GOTO 3610 
3715 : 

3600 VR(3)=(VR(4)*VR(t))/(VR(5)-VR(l>) 

3810 V2=G:G0T0 3200 
3905 : 

4000 VR(6)=INT(VR(1)*100/VR(5)) 

4005 : 

4100 PR$="CONCLUSIONI":AT=1 
4110 IF VR(4)<0 THEN AT=-1 
4120 IF VR(4)=0 THEN AT=0 
4125 : 

4130 GOSUB 8000:60SUB 6000 :RC=3:50SUB 8100 
4135 : 

4200 PRINT “OEN. CORPO"SPRINT " =”;VR(1) 

4210 PRINT "VOL. CORPO":PRINT " =";VR(2) 

4220 PRINT "PESO CORPO":PRINT " ="sVR(3) 

4240 PRINT "SPINTA":PRINT " =";VR(4) 

4250 PRINT "OEN. FLUIDO"SPRINT " =";VR(5) 

4255 : 

4300 IF AT=0 THEN 4400 
4310 IF ATM THEN 4500 
4315 : 

4320 PRINT SPRINT " AFFONDA"sGOTO 300 

4400 PRINT SPRINT " EQUILIBRIO"sGOTO 300 

4500 PRINT SPRINT " GALLEGGIA"SPRINT 

4510 PRINT "VOL. INHERSO"SPRINT " = M ;VR<6);" X" 

4600 M2$="CONTINUARE":GOSUB 6200 

4610 GOTO 110 

4655 s 

6000 GOSUB 6010:GOSUB 6100: RETURN 
6005 s 

6010 POKE 53284,3sL$=""sCÌ="" 

6020 FOR 1=1 TO 5sLt=L*+CHR$(237)+CHR$(160) 

6024 C$=C$+CHR$(163> 
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6030 NEXT :L$=L$+CHR$(237) 

6040 RC=6:G0SUB 810O:POKE 646,0 
6044 PRINT TAB(18);"[ £" 

6050 FOR M TO 10:PRINT TAB<18);"3 T":NEXT 

6054 PRINT TAB(19);" 44444444444 " 

6060 POKE 646,1:RC=9+(AT<=(Ì): GOSUB 8100 
6065 : 

6070 FOR 1=1 TO 3-(AT<=0):PRINT TAB(19);L$:NEXT 
6080 RETURN 
6085 : 

6100 POKE 646,0:RC=7-2*AT+3:GOSUB 8100 

6110 FOR 1=1 TO 5:PRINT TAB<22);"CCTRLMRVS 0N3";C$:NEXT 

6120 RETURN 

6255 : 

6300 GOSUB 8000 

6310 RC-15:G0SUB 81D0:PRINT "PUOI USARE UNA DI QUESTE" 

6320 PRINT "SOSTANZE OPPURE INTRODURRE" 

6330 PRINT "DIRETTAMENTE LA DENSITÀ'" 

6340 RETURN 
6395 : 

6400 MI$=”INTRODUCI, SE NOTO, IL" 

6410 M2$="VALORE DELLA DENSITÀ'" 

6455 : 

6500 GOSUB 8800:IF RI$="S" THEN RETURN 
6510 IF V1=0 THEN VI=1—1 : RETURN 
6520 V2=I-1:RETURN 
6555 : 

7000 POKE 52,48:POKE 56,48 

7010 POKE 56334,PEEK(56334) AND 254 

7020 POKE 1,PEEK(l) AND 251 

7030 FOR 1=0 TO 511:POKE 1+12288,PEEK(1+53248) 

7040 NEXT :POKE 1,PEEK(1) OR 4 
7050 POKE 56334,PEEK(56334) OR 1 
7060 POKE 53272,(PEEK(53272) ANO 240X+12 
7075 : 

7100 RESTORE :FOR 1=0 TO 39:READ A 
7110 POKE 12504+1,A:NEXT :GOTO 8000 
7189 : 

7195 REM**************************************************** 
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7199 : 

7200 DATA 128,192,96,45,24,12,6,3,1,3,6,12,24,48.96,192 
7210 DATA 3,3,3,3,3,3,3,3,192,192,192,192,192,192,192,192 
7220 DATA 255,255,0,0,0,0,0,0 

7235 : 


NOTE AL PROGRAMMA 

Il menù iniziale di questo programma, oltre a ricordarci il 
principio di Archimede, ci offre una visualizzazione delle clas¬ 
siche condizioni di un laboratorio sperimentale. Nel becker 
riempitó di liquido è immerso un corpo di colore e di aspetto 
contrastanti. Premiamo un tasto. La seconda videata ci per¬ 
mette di scegliere il liquido che desideriamo sia messo nel 
bicchiere. Naturalmente, poiché ai fini del principio di Archi- 
mede è importante la densità del fluido, possiamo, in luogo di 
selezionare uno dei fluidi proposti dal programma, immettere 
direttamente - con 9 - la densità nota di un particolare fluido 
di nostro interesse. Possiamo, volendo, usare anche "liquidi” 
estremamente densi il cui maneggio sarebbe veramente sco¬ 
modo e “lento" nelle condizioni reali di sperimentazione. 

Con la quarta videata possiamo scegliere il materiale del 
corpo da immergere. Anche in questo caso possiamo volere 
una delle sostanze selezionate dal computer oppure introdurre 
direttamente la densità del materiale che vogliamo sia immer¬ 
so. Le ultime videate di questo programma mostrano le condi¬ 
zioni finali dell’esperimento facendoci vedere, con qualche 
preziosismo grafico, se il corpo è "affondato" oppure se gal¬ 
leggia. Il programma calcola perfino la parte del solido che 
eventualmente affiora sulla superficie del liquido. 
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TERMOLOGIA 



1 = IDROGENO 

2 = ELIO 

3 = NEON 

4 = AZOTO 

5 = OSSIGENO 

6 = NON NOTO/ALTRI 


MASSE MOLECOLARI : 
SCEGLIERNE IL GAS 
OPPURE INTRODURRE, 
SE NOTO,IL UALORE. 




sc_. 

UUOÌ FARE > 


Una volta studiato e compreso come i corpi solidi e i fluidi si 
muovono ed interagiscono tra di loro viene giustamente la vo¬ 
glia di andare avanti. Agli studenti più attenti non è sfuggito il 
fatto che finora siamo stati nel confine delimitato dalle tre gran¬ 
dezze fondamentali di Spazio, Tempo e Massa. 

Affrontando la Termologia sembra di uscire da questo recin¬ 
to per andare a conoscere il "calore". Questo concetto era 
sembrato ovvio anche agli scienziati che si occupavano della 
Fisica fino ad un paio di secoli fa. Il calore, chiamato a quell’e¬ 
poca con l'arcano nome di “flogisto", sembrava essere una 
specie di fluido immateriale che passava da un corpo caldo 
ad uno più freddo. Fior di cervelli avevano accumulato teorie 
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su teorie cercando di far quadrare tutto ciò che l'umanità sa¬ 
peva sulla produzione e sulla trasmissione del calore, nonché 
sulle notevoli ed evidenti conseguenze pratiche quali le com¬ 
bustioni, le dilatazioni, le fusioni, ecc. ecc. 

Il grosso guaio era dovuto al fatto che l’umanità sapeva già 
parecchio sul calore - in fin dei conti lo aveva utilizzato da 
molti millenni per cucinare i suoi cibi - ed era quindi difficile 
strutturare una teoria che desse ragione di tutto. 

Si finì poi, nientedimeno, per andare a ripescare l'antica teo¬ 
ria “atomica" dello scienziato greco Democrito, vissuto molti 
secoli prima, quasi un paio di millenni! Improvvisamente tutto 
fu chiaro: erano questi piccoli “mattoni”, atomi o molecole che 
fossero, che con il loro moto incessante davano spiegazione di 
tutta la varia e complessa fenomenologia connessa con il calo¬ 
re. 

Per alcuni ci fu un po’ di delusione: anche il calore era den¬ 
tro ai confini delle tre grandezze fondamentali già analizzate 
dalla Meccanica È interessante, però, notare come la "fumo- 



PRESS. C N/Mt2] = 
VOLUME GAStMt3]= 


20000000 

1.5E-03 


INTRODU 
VALORI NOTI: 

TEMPER. t 'CI = 25 
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sa” teoria del flogisto scaturita da medioevali laboratori di al¬ 
chemici finisse per far nascere in molti l'idea che in qualche 
maniera non si doveva stare sempre e soltanto a discutere di 
materia, ma anche di quel qualcosa che permeava la materia 
facendola muovere, trasformarsi, bruciare: l'energia. 

Oggi sappiamo, dopo Einstein, con la sua celebre E = me 2 , 
che materia ed energia sono due facce della stessa realtà, 
che l'una può trasformarsi nell'altra e viceversa. Il calore visto 
come energia, separato e distinto dalla materia su cui operava 
è stato, perciò, foriero di importantissimi risultati nella storia 
della Fisica. A questo concetto si sono riscaldate le menti di 
alcune generazioni di scienziati, così come al mezzo più facile 
per produrlo, la fiamma, si erano già riscaldate le membra dei 
nostri antichi progenitori in attesa e in dubbio se uscire dalla 
"sicura” caverna in cui avevano trovato dimora. 
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L’EQUAZIONE DI STATO DEI GAS 

L'argomento prescelto per il programma di Termologia - e 
non poteva essere diversamente - è l'equazione di stato dei 
gas. 

Il momento in cui si arriva al comportamento dei gas, infatti, 
è molto bello ed importante durante il curriculum scolastico del 
corso di Fisica. 

Fino a poche pagine prima avevamo analizzato ogni singolo 
fenomeno secondo l’ottica dello schiavo-padrone: c’era sem¬ 
pre stata una variabile dominatrice, indipendente, libera di as¬ 
sumere qualunque valore ed una variabile schiava che assu¬ 
meva comportamenti e caratteristiche solo in funzione di ciò 
che il ghiribizzo della variabile indipendente comandava. Nel 
caso dei gas, forse per rispettare la loro capacità di espander¬ 
si liberi da vincoli, di variabili ce ne sono tre: volume, tempera¬ 
tura e pressione, e non si capisce più chi comanda e chi ubbi¬ 
disce. 



MASSA GAS [KG I 
PRESS. CN/Mt2] 


= .387141491 

= 27500000 



INTRODUCI 
UALORI NOTI: 

UOLUME GASCMt33= .0015 
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In alcune leggi sui gas c’è il tentativo, un po’ disperato in ve¬ 
rità, di ricondurre tutto a consuetudini note. Con la legge di 
Boyle-Mariotte si acchiappa la temperatura e la si tiene co¬ 
stante in modo da vedere come si comportino vicendevolmen¬ 
te pressione e volume. Nelle due leggi di Gay-Lussac si bloc¬ 
ca o la pressione o il volume per osservare ed analizzare il 
comportamento delle variabili rimaste libere. Sta di fatto che 
per evitare di giocare a rimpiattino con le variabili ci vuole una 
bella legge che le studi tutte e tre insieme, anzi che, oltre alle 
variabili, vada anche a considerare la "materia” di cui è fatto il 
singolo gas preso in esame. 

Il programma, naturalmente offre tutte le possibilità dando 
un esempio di quelli che incominciano ad essere noti come 
“programmi intelligenti”, ossia di quei programmi che agiscono 
interattivamente con l'uomo chiedendogli dei dati ma stando 
pronti a variare e ad utilizzare il corretto algoritmo interno in 
funzione di quanto si è comunicato e dì quanto si vuole. Nel 
programma c'è anche un piccolo preziosismo grafico che non 



MASSA MOL. 

= 32 

MASSA GAS IKG3 
= .387141491 
NUM. KMOLI 
= .0120981716 
PRESS. [N/Mt23 
= 27500000 
= 271.403898 
UOLUME [Mf31 
= 1.5E-03 
TEMP. tCl 

= 136.80625 


[ATM] 
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SE UUOI 
CONTINUARE 
PREMI UNTASTO.. 
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mancherà di essere apprezzato da chi ha capito quanto le 
proprietà dei gas dipendano dalla “libertà" delle sue molecole 
e che non si diverte più ad osservare la staticità dei disegni di 
un libro di Fisica. Osserviamo il contenuto dello stantuffo al va¬ 
riare della posizione del pistone... Interessante, no? 


109 REM«******«**********^****************************** 

110 PR$="GAS IDEALI" 

H5 REt1«***+*************rnHHr******»»*+********««*»t***+* 

119 : 

120 GOSUB 7500 
125 : 

130 R6=B317 

200 Mi$="SE VfJOI":M2$= ! 'CONIINUARE" 

210 M3$="PREMI UN TASTO... ":G0SUB 8600 
305 : 

1000 GOSUB 7000 
1100 LI=0:L2=D:L3=0 

1500 RC=13 : GOSUB M00: PRINT " MASSE MOLECOLARI:" 

1510 PRINT "SCEGLIERNE IL GAS" 

1520 PRINT "OPPURE INTRODURRE," 

1530 PRINT "SE NOTO,IL VALORE." 

2005 : 

2010 PN$(1 )«“IDROGENO":D( 1 ) =2 
2020 PNÌ(2)="ELI0":D(2)=4 
2030 PN$(3)="NEON":D(3)=20 
2040 PN$(4)="AZOTO":D(4 > =28 
2050 PN$(5)="OSSIGENO":D(5)=32 
2090 PNti'6)="N0N NOTO/ALTRI" 

2095 : 

2100 PN=6:GOSUB 9400 
2110 VR(1)=D(PS):GOSUB 6000 
2120 M1$="INTR0DUCI SOLO I" 

2130 M2$="VAL0RI NOTI:" 

2140 IF PS'6 THEN 2200 
2145 : 

2150 M3$="MA3SA MOLECOLARE= “ 

2160 1=1 : GOSUB 6500 
2165 : 
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2200 1=2 

2210 M3$="MASSA GAS 0KG> n :G0SUB 6500 
2220 M3$="NUMER0 DI KM0LE= ":S0SUB 6500 
2230 M3$="PRESS. CN/MT23= "sfiOSUB 6500 
2240 M3$="VOLUME GASCMT33= ":GOSUB 6500 
2250 M3$="TEMPER. C'C> ":G0SUB 6500 
2255 : 

2260 IF RI$= ,! N" THEN 2300 
2270 VR(6)=VR(6)+273.15 
2275 : 

23.00 IF L3=0 THEN 2400 
2310 IF L1*L2=2 THEN 2350 
2320 IF L2<4 THEN 2600 
2330 L3=L1 
2340 L1-l3:L2=0 
2400 IF L2< >0 THEN 2500 
2410 J=L1:L1=0 
2420 ZP=G0TQ 7200 
2455 : 

2500 IF LI>3 THEN 2600 
2510 IF L2=3 THEN 3700 
2520 IF L1*L2=2 THEN 2600 
2525 : 

2530 IF LI=3 THEN 3300 

2540 ZP=L2:G0T0 7200 

2600 GOSUB 8000:G05UB 6000 

2610 RC=16:G0SUB 8100:PRINT "DATI INCOMPATIBILI" 

2615 : 

2620 GOTO 4010 
2625 : 

3000 GOTO 4000 
3100 VR(i)=VR<2)/VR<3> 

3110 L1=0:ZP=L2:G0T0 7200 
3115 : 

3200 VR<2)=VR(3)*VR(i) 

3210 GOTO 3110 
3215 : 

3300 VR(3)=VR(2)/VR(1) 

3305 : 


49 




E 

■■1 

IBI 

IBI 

IBI 

■Bl 

IBI 

IBI 

IBI 

■■■ 

IBI 

FISICA CON C-64 

■■■ 

■■i 

■■■ 

■■■ 

IBI 

IBI 

IBI 

IBI 

IBI 

IB 

m 

IBI 

DII 

IBI 

IBI 

IBI 


IBI 


IBI 


IBI 

il 


331G GOTO 3110 
3315 : 

3400 VR(4)=VR(3)*RG*VR(6)/VR(5) 

3410 L2=0:Z P=L1:GOT0 7200 
3415 : 

3500 VR<5)=VR(3)*RG*VR(6)/VR(4> 

3510 GOTO 3410 
3595 : 

3600 VR < 6)=VR(4)*VR(5 >/(RG*VR < 3)) 

3610 GOTO 3410 
3615 : 

3700 VR(3)=VR(4)*VR(5)/(RG*VR(6>) 

3710 GOTO 3410 
3905 : 

4000 GOSUB 8000:6051® 6000 
4005 : 

4010 RC=3:GOSUB aiOOiPRINT "MASSA MQL.":PRINT " 
4020 IF VR(1)=0 THEN PRINT " ?":GOTO 4040 
4025 : 

4030 PRINT VR<1> 

4040 PRINT "MASSA GAS CKGT'iPRINT " ="; 

4050 IF VR(2)=0 THEN PRINT " ?":GOTO 4070 
4055 : 

4060 PRINT VR(2) 

4070 PRINT "NUM. KMOLI": PRINT 11 ="; 

4080 IF VR(3)=0 THEN PRINT 11 7 ":GOTQ 4100 
4085 : 

4090 PRINT VR(3) 

4100 PRINT "PRESS. CN/MT20":PRINT " ="; 

4110 : 

4120 PRINT VRC4):PRINT " =";VR(4)/101325:" [ATM]" 
4130 PRINT ''VOLUME EMt3]":PRINT " ="; 

4140 IF VR(5)=0 THEN PRINT " ’":GOTO 4160 
4145 : 

4150 PRINT VR(5) 

4160 PRINT "TEMP. C'C3":PRINT 11 ="; 

4170 IF VR(6)=0 THEN PRINT " ?":GOTO 4200 
4175 : 

4180 PRINT VR(6)-273.15 


50 


cf 

TT 


--- 

--- 

--- 

TERMOLOGIA [il 

— 

- 

--- 

-- 

--- 

h 

L 












J 


4200 M*="SE VyQI’‘:l12$= ,! C0NTINUARE" 

4210 W3$=‘'PREP1I UN TASTO...GOSUB 8600 
4255 : 

5000 GOSUB 70Q0:G0SU8 SOOOiGOTO 1100 
5005 ; 

6000 POKE 53284,15:RC=6:GOSUB 8100:POKE 646,0 
6010 POP 3=1 Tu 15 

60-14 PRINT TAB(23> ! " :NEXT 

6020 PRINT TAB<24) ; ’*#######“ 

6045 : 

6090 L*="S 4 4 4" 

6100 POKE 646,15:F0R J=0 TO 4+AT 

6110 IF AT>0 THEN F$=" GOSUB 7300 

6120 IF AT=0 THEN F*=" 4 4 4 ”:GOSUB 7300 

6130 IF AT<0 THEN F$="4444444":GOSUB 7300 

6140 RC=19-2*J:G0SUB 81G0:PRINT TAB(24);L$;:NEXT J 

6160 POKE 646,0:RC=20-2*J:G0SUB 8100 

6164 PRINT TAB(24>;"mnU" 

6170 Z $=CHR$(34)+CHRt(34)+CHR$(157):FOR H=2*J TO 18 
6180 RC=19-H:GOSUB 8100:PRINT TABC24);" "jZ*;" ";:NEXT 

6220 RETURN 
6495 : 

6500 GOSUB 8800 :IF RI$="B" THEN RETURN 
6510 IF L1=0 THEN 11=1-1:RETURN 

6520 IF L2=0 THEN L2=I-1:RETURN 

6530 L3=I-1:RETURN 
6595 : 

7000 RS=1:AT=-1:GOSUB 6000 
7010 GOTO 7050 
7020 H=75 

7030 GET K$:IF K$<>“" THEN RETURN 
7040 FOR K=Q TO H:NEXT K:GOSUB 6090 
7050 AT=AT+RS 

71060 IF ABSIATK2 THEN 7020 
7070 RS=-RS:AT=AT+2*RS 
7080 H=100:G0T0 7030 
7085 : 

7200 ON ZP GOTO 3100,3200,3300,3400,3500,3600,3700 
7210 GOTO 3000 
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7215 : 

7300 RC=20—2*J:G0SUB 81G0:PR1N7 TAB(24);F$:RETLRN 
7315 : 

7500 POKE 52,48:P0KE 56,43 

7504 POKE 56334,PEEK<56334) ANO 254 

7510 POKE 1,PEEK(1) AND 251 

7520 FOR 1=0 TO 511:P0KE 1+12238,PEEK(1+532^3) 

7530 NEXT :POKE 1,PEEK(1) OR 4 
7540 POKE 56334,PEEK(56334) OR 1 
7550 POKE 53272,(PEEKf53272) AND 240)+12 
7555 : 

7560 RESTORE 

7570 FOR 1=0 TO 47:READ A 

7580 POKE 12552+1,A:NEXT :GOTO 8000 

7581 : 

7583 REH*************************************** 4 ************ 

7599 : 

7600 DATA 192,192,192,192,192,192,192,192 
7610 DATA 102,102,102,102,102,102,102,102 
7620 DATA 255,255,0,0,0,0,0,0 

7630 DATA 3,3,3,3,3,3,3,3 

7640 DATA 255,170,85.170,85,170,85,255 

7650 DATA 0,60,102,66,66,102,60,0 

7995 R£N*******+***«***************+*********************** 


NOTE AL PROGRAMMA 

Anche per questo programma si creano, sullo schermo del 
nostro computer, le condizioni caratteristiche di un laboratorio 
sperimentale. Vediamo il tradizionale stantuffo chiuso da un pi¬ 
stone mobile con dentro il gas di cui bisogna analizzare il 
comportamento al variare di una delle grandezze - pressione, 
temperatura, volume - che, come è noto, si influenzano vicen¬ 
devolmente. Possiamo scegliere il comportamento di un parti¬ 
colare gas, considerato come ideale, secondo le tradizionali 
convenzioni di questa parte della Fisica. Abbiamo - opzione 6 
- anche la possibilità di valutare il comportamento di un parti¬ 
colare gas non elencato in tabella fornendo al computer il va¬ 
lore della sua massa molecolare. Aiutiamoci con un esempio 
che, data la sua pericolosità, non sarebbe proponibile nelle 
mura tradizionali di un laboratorio. Una bombola di ossigeno di 
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1,5 litri è caricata con una pressione di ben 200 Bar La terza 
videata reca i valori scelti dall’esempio in modo che vi sia cor¬ 
relazione tra le singole unità di misura che abbiamo utilizzato; 
si ha come risultato 387° grammi di 0 2 . Pericolosamente met¬ 
tiamo sulla fiamma la bombola chiusa; sappiamo, per le leggi 
sui gas, che, a volume costante, ad un aumento di temperatu¬ 
ra corrisponderà un incremento della pressione interna e vo¬ 
gliamo “vedere” l’esplosione della bombola il cui acciaio non 
può sopportare pressioni superiori a 275 Bar. Con la quarta e 
la quinta videata, dopo aver introdotto i valori noti di pressione 
“di scoppio" possiamo assistere alla "esplosione" della bom¬ 
bola ad una particolare temperatura, 136° C. 

Con l'ausilio del computer non abbiamo distrutto l'intero la¬ 
boratorio e se vogliamo nuove, tranquille esplosioni ci è suffi¬ 
ciente “premere un tasto"! 
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ACUSTICA 


X1<T> =A1*SIN(2*PI*F1*T + K1) 
X2CT> =A2*S IN < 2 * P I *F2*T + K2 ) 

INTRODUCI I VALORI 
DEL PRIMO SUONO 
AI-AMPIEZZA I 1= 



L'Acustica è parte antica della Fisica II nostro orecchio è 
sempre vigile, anche durante il sonno, pronto ad udire il lieve 
scalpiccio di passi felpati o il lontano rombo di un mare in 
tempesta. L’urlo di allarme o il soave sussurro di una voce 
amica fin dall'inizio fecero capire ad ogni singolo essere uma¬ 
no, prima ancora che le conoscenze dell'Acustica diventasse¬ 
ro patrimonio cosciente e formalizzato di tutti, che il suono 
aveva una intensità, una frequenza, un timbro. Poi, per molti 
millenni, l'uomo si sbizzarrì ad inventare strumenti musicali 
sempre diversi e sempre più affascinanti Di volta in volta sep¬ 
pe usare tutti i mezzi a sua disposizione per produrre il suono, 
dal percuotere grossi tronchi scavati con il fuoco, al far vibrare 
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pesanti lastre metalliche, dal saper fare oscillare una corda 
tesa o una “colonna" d'aria fino a produrre elettronicamente le 
esatte note di frequenza con una "tastiera”, cugina molto stret¬ 
ta di ogni computer. 

Distraendosi dalla lunga cascata di suoni l’uomo ha anche, 
però, trovato il tempo di capire che i suoni hanno una loro ve¬ 
locità nell’aria e che questa non era poi cosi grande; ha poi 
imparato come i suoni differissero tra loro in funzione della loro 
“altezza" beandosi infine dell’accordo musicale che scaturisce 
da note i cui rapporti di frequenza fossero matematicamente 
semplici. 

L'uomo comprese poi che i suoni “puri”, sinusoidali, poteva¬ 
no essere resi più ricchi, più “parlanti", mescolando, con mano 
sapiente, le armoniche alla frequenza base. A questo punto 
l’attenzione si focalizzò sulle onde. L’uomo era sempre stato 
circondato dalle onde, da quelle del mare, da quelle della 
luce, ma proprio con l'Acustica gli viene voglia di sapere e di 


AI-AMPIEZZA 
FI-FREQUENZA 
K 1 -FASE INIZ. 
A2-AMPIEZZA 
F2-FREQUENZA 
K2-FASE INIZ. 



X 1 <T) =A1 *S IN<2*PI«F 1 *T+K 1 > 
X2 <T)=A2*SI N<2*P I*F2*T+K2) 
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comprendere di più, trascinato insieme dalla voglia di cono¬ 
scere e da una dolce, struggente armonia musicale. 


LA COMPOSIZIONE DELLE ONDE 


C'è stato qualche dubbio su quale fosse il giusto argomento 
del programma per esemplificare l'Acustica. Certamente molti 
computer hanno belle caratteristiche musicali e sarebbe stato 
ingannevolmente facile scegliere una sequenza di note, una 
armonia, una sinfonia. Ci siamo resi conto che proprio con l’A¬ 
custica incominciamo a studiare e a capire queirimmensa, in¬ 
credibile realtà che sono le onde. 

Guardando i dolci cerchi concentrici di un lago al tramonto 
in un giorno di calma di vento, ascoltando le note e gli accordi 
che “pizzichiamo” sulla nostra chitarra possiamo capire come 
le onde, nel loro incessante fluire, pervadono e muovono la 
materia rendendola viva e possiamo osservare come le onde 
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si compongono tra di loro, mescolandosi e facendone nascere 
di nuove. 

Noi, con i nostri sensi, percepiamo soprattutto onde di "ma¬ 
teria" dei liquidi, dell'aria e le vediamo come qualcosa di eter¬ 
namente mobile, che si perpetua incurante dejla nostra sete di 
conoscere e di sapere. L’uomo, però, ha saputo astrarre da 
questa materia in movimento per centrare la sua attenzione 
sullo strano universo delle onde e della energia che in esso 
prepotentemente si manifesta per comprendere i fenomeni che 
vi intervengono, fenomeni che portano i difficili nomi di “interfe¬ 
renza", di "diffrazione” e di “polarizzazione”. 

Quello delle onde è un universo che sembra allegro e disor¬ 
dinato ma che, nel suo profondo, rispetta leggi forse non facil¬ 
mente intuibili ma rigorosamente esatte. 

Il programma dà modo di intervenire, ragionando, in questo 
mondo vario e mutevole. Si ha modo di “prendere" un'onda di 
visualizzarla sullo schermo, di prenderne una seconda, di os¬ 
servarla e poi di far interferire le due onde tra di loro per ve- 



CAMBIO SUONO 1 
CAMBIO SUONO 2 
CAMBIO GRAFICO 
GRAFICO 
-FINE — 


******* 


SCEGLI CHE COSA 
VUOI FARE > 
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derne la risultante, per godere della nascita di questa nuova 
onda, con i suoi parametri, con la sua personalità. 

Lo schermo del nostro computer ci apre una finestra su 
quello sconfinato e mutevole mondo delle onde, in cui l’ener¬ 
gia è in perpetua trasformazione. 


OO HT M 

77 Ktn******** 
100 Din VR(ll) 


103 : 

110 PR$= n S0HMA DI SUONI PURI" 

113 R£ H » «»» » » HIH HHII H I U H tWWWWWWWHWWW 
115 : 

200 G0SU8 8000 
210 G0SU6 4000 



A2-AMPIEZZA [ 3= 3 

F2-FREQUENZA tHZ3= 90 
K2-FASE INIZ.tGR 3 = 30 


XI<T3=A1*SIN<2*PI*F1»T+K1) 
X2Cn*ft2*SIN(2*PI *F2*T+K2> 


»«♦*»» _ 

I VALORI INTRODOTTI 
SONO OK <S/N) ? 
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220 G0SU8 4100 
230 GOSUB 4200 
240 GOSUB 4300 
245 : 

250 SX=310/(VR(8>-VR<7>> 

260 SY=135/(VR<11)-VR<10>) 

270 CX=VR(7) 

275 : 

300 GOSUB 9800 
310 GOSUB 5000 
315 : 

1000 CY=VR(1)*SIN(VR(2)*CX+VR(3>) 

1010 GOSUB 5100:Y3=CY 

1020 CY=VR(4)*SIN(VR(5)»CX+VR(6)) 




C = PAGINA NUMERICA 
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1030 GOSUB 5100 
1040 CY=CY+Y3 
1050 GOSUB 5100 
1060 CX=CX+,5*VR(9) 

110] Y3=VR (1)*SIN(VR(2)*CX+VR(3)) 

1120 CY=VR(4)*SIN < VR(5 > *CX+VR(6)) 

1130 CY=CY+Y3 
1140 GOSUB 5100 
1145 : 

2000 CX-CX+.5*VR<9) 

2010 IF CX>VR(8t THEN 2220 
2020 GEI I$:IF 1*="" THEN 1000 
2030 IF I*="C" THEN 2230 
2040 GET I$:IF 1$='“' THEN 2040 
2050 GOTO 1000 
2075 : 

2220 GET I$:IF 1$="" THEN 2220 
2230 GOSUe 9900 
2275 : 

2300 PN$C1)="CAMBIO SUONO 1" 

2310 PN$f2>="CAMBI0 SUONO 2" 

2320 PN$(3)="CAMBI0 GRAFICO" 

2330 PN$(4)="GRAFIC0" 

2340 PN$(5)="-FINE--" 

2375 : 

2400 PN=5:GOSUB 9400sIF PS<>4 THEN GOSUB 8000 

2410 ON PS GOTO 2420,2430,2440,2S0,2480 

2420 GOSUB 4000:GOSUB 4100:GOTO 2230 

2430 GOSUB 4000:GOSUB 4200-.GOTO 2230 

2440 GOSUB 4000:GOSUB 4300:GOTO 2230 

2460 END 

2475 : 

4000 RC=17:60SUB 8100:PRINT " X1(T)=A1*SIN(2*PI*F1*T+K1)" 
4010 PRINT : PRINT " X2(T)=A2*SIN(2*PI*F2*T+K2> ** 

4020 RETURN 
4075 : 

4100 m$="INTR0DUCI I VALORI" 

4110 M2$="DEL PRIMO SUONO":1=1 

4120 li3$="Al-AMPIEZZA C > ":GOSUB 8800 
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4130 H3i="FI-FREQUENZA CHZ3= ":G0SUB 8800 
4140 N3$="K1-FASE INIZ.CGR3= ":G0SUB 8800 
4150 M2$=" ,, :M1$="I VALORI INTRODOTTI" 

4160 M3$="SONO OK (S/N) ’":G0SU8 8400 
4170 IF RI$="N" THEN 4100 
4180 VR(2)=VR(2)*2*EPI3:VR(3)=VR(3)*[P13/180 
4190 RETURN 
4195 : 

4200 MI$="INTRODUCI I VALORI" 

4210 M2$="DEL SECONDO SUONO":1=4 
4220 M3$="A2-AMPIEZZA C 3= ":GOSUB 8600 
4230 M3$="F2-FRE0UENZA CHZ3= ":GOSUB 8800 
4240 M3$="K2-FASE INIZ.CGR3= “:GOSUB 8800 
4250 M2$="":M1$="I VALORI INTRODOTTI" 

4260 M3$="SONO OK (S/N) ?":GOSUB 8400 
4270 IF RI$="N" THEN 4200 
4280 VR<5)=VR<S)»2*CPI3:VR<6)=VR(6)*CPI3/lflO 
4290 RETURN 
4295 : 

4300 HI$="INTRODUCI I VALORI" 

4310 M2$="PER IL GRAFICO":1=7 

4320 M3$="T INIZIALE (0)= ":GOSUB 8800 

4324 VR(8)=CPI3*10/(VR(2)+VR(5)):M3$=STR$(VR(8))+" 

4330 M3$="T FINALE ( ,, +LEFT$(M3$,10)+“)= ":GOSUe 8800 
4334 IF RI$="N" THEN VR(8)=10*CPI3/(VR(2)+VR(5)) 

4338 VR(9)=(VR(8)-VR(7))/130:M3$=STR$(VR(9))+" 

4340 M3$="STEP T (“+LEFT$(M3Ì,10>+")= ":GOSUB 8800 
4344 IF RI$="N" THEN VR(9)=(VR(8)-VR(7))/160 
4348 VR(10)=-(ABS(VR(1))+ABS(VR(4))):M3$=STR$(VR(10))+ 11 
4350 H3*="X INIZIALE ( ,, +LER$(M3$,10)+")= ":GOSUB. 8800 
4354 IF RI$="N" THEN VR(10)=-(ABS(VR(1))+ABS(VR(4») 
4358 VR(U)=ABS(VR(10)):M3$=STR$(VR(11))+" 

4340 M3$="X FINALE ("+LEFT$<H3$,10)+"}= ":G09UB 8800 
4364 IF RI$="N" THEN VR(11)=ABS(VR(1Q)) 

4370 M2i="":Ml$="I VALORI INTRODOTTI" 

4380 M3*="S0N0 OK (S/N) ?":GOSUB 8400 
4390 IF R1$="N" THEN 4300 
4400 RETURN 
4405 : 
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5000 FOR 1=8512 TO 14912 STEP 320:F0R K=I TO (1+7) 

5010 POKE K,48:NEXT :NEXT 

5020 XX=0:YY=173:G0SUB 9700:Y1=0:X1=4:GOSUB 9600 

5030 XX=0:YY=11:G0SU8 9700:X1=4:Y1=0:G0SU8 9600 

5040 CX=VR(7):CY=0:60SUB 5100 

5050 IF PY<0 OR PY>175 THEN RETURN 

5060 FOR 1=0 TO 39:POKE C3+I*8,255:NEXT :XX=313 

5070 YY=YY-2:G0SUe 9700 : XI=0:Y1=4 :GOSUB 9600 

5080 RETURN 

5085 : 

5100 PX=(CX-VR(7))*SX+2 
5110 PY=(CY-VP(10))»SY+18 
5120 IF PX<0 OR PX>310 THEN RETURN 
5130 IF PY<0 OR PY >175 THEN RETURN 
5140 XX=PX:YY=PY:GOSUB 9700:RETURN 
5175 : 

7905 

NOTE AL PROGRAMMA 

Con questo programma usciamo fuori dagli angusti confini 
di un laboratorio per "inventare" con il computer un potente 
apparato che ci permette di analizzare la composizione dei 
suoni, delle loro onde. Il menù iniziale propone le equazioni di 
due “suoni puri", onde sinusoidali, e chiede gli specifici para¬ 
metri delle onde. Scegliamo, come esempio, una frequenza 
bassa, rotonda, piena, degna di una musica moderna, una 
bella nota bassa a 30 Hertz. Accoppiamo a questa nota, un at¬ 
timo dopo, la sua 2 a armonica a 60 Hertz che sarà di ampiez¬ 
za minore. Premiamo /RETURN/. Inizia il calcolo per punti della 
traccia sia delle due onde sia della loro risultante, così come 
viene visualizzato nella videata numero tre. 

Come è noto, quando si analizzano onde dalla frequenza 
troppo diversa, è necessario saper scegliere la giusta scala di 
disegno, come ben sappiamo dopo aver buttato via per una 
sola esercitazione un intero blocco di carta millimetrata. Con 
il computer si risparmia non solo sulla carta ma anche sul tem¬ 
po: infatti rispondendo alle domande sul grafico con /RETURN/ 
il calcolatore userà dei valori calcolati automaticamente. Pre¬ 
mendo un qualsiasi tasto si interrompe il tracciamento delle 
onde e, successivamente, con /CI si possono fare delle modi¬ 
fiche seguendo la traccia della quarta videata. Nella quinta e 
nella sesta videata possiamo rispettivamente introdurre e vi¬ 
sualizzare una nuova analisi, come quella di una onda “fonda- 
mentale” e della sua 3 a armonica. 
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In principio fu la luce. Per noi uomini la luce è il più grande 
dei beni perché ci permette di utilizzare al meglio il nostro sen¬ 
so migliore: la vista. Gli occhi sono un mezzo potente, uno dei 
migliori strumenti che la natura ha messo a disposizione alle 
varie specie viventi. Forse solo l'aquila ed il falco nell’ambiente 
aereo ed il polpo nell'ambiente subacqueo possono vantare 
una acutezza visiva maggiore di quella umana. La nostra vista 
può spaziare dall'abbagliante riverbero di un meriggio d'estate 
fino alla tremula luce di una notte stellata. Senso importante 
per noi uomini e quindi massimo interesse conoscitivo per sa¬ 
pere tutto sulla genesi e sulle proprietà della luce. Fiaccole, 
fuochi, medioevali candele, fiamme chimiche, lampadine elet¬ 
triche ed infine la bruciante potenza dei laser hanno accom¬ 
pagnato il lungo cammino della civiltà ponendosi di volta in 



1 = A:LIQUIDO 

2 = A: SOLIDO 

3 » A: GAS 

4 = B:LIQUIDO 

3 = Bt SOLIDO 
G = B: GAS 

7 = ANG. INC. 


MEZZO A ■ ? 
MEZZO B = ? 


SCEGLI CHE COSA 
VUOI FARE > 
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volta come sempre meno pallide imitazioni del nostro Sole fino 
- supremo peccato d'orgoglio - a superarlo. 

Eppure per far luce sulla luce, per conoscere la sua intima 
realtà, è necessario arrivare sulla soglia del nostro secolo, 
quando dallo scontro tra la teoria corpuscolare e quella ondu¬ 
latoria si riesce a comprendere quanto anche la limpida luce 
possa essere complessa. Da un lato riusciamo a confinare la 
luce in una esile banda dello spettro elettromagnetico e ci 
sembra quasi di essercene impossessati calcolando la sua 
enorme velocità all’interno di un laboratorio terrestre; contem¬ 
poraneamente, però, saltano fuori sia strani comportamenti mi¬ 
sti, particella-onda sia il fatto che la velocità della luce, almeno 
nel nostro universo, à quella limite quella che non potrà mai 
essere superata. 

Il nostro secolo scopre che in qualche maniera la velocità 
della luce fa da "colla" tra materia ed energia e mette le pre¬ 
messe perché la luce possa essere dominata e prodotta in 
modo sempre più efficace, arrivando a realizzare quei laser ad 
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RIFRAZIONE 


1 = GHIACCIO 

FLUOR INA 


3 = QUARZO 

4 = SALGEMMA 

3 = V. CROLN L 

6 = V. CROWN P 

7 » V. FLINT L 

8 » V. FLINT P 

9 = DIAMANTE 



MEZZO A » ? 
MEZZO B * ? 
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anidride carbonica che in questi giorni incominciano ad essere 
mandati nello spazio. Al loro confronto i fidi “cannoni-laser” 
con cui per tante volte nei “computer game” abbiamo abbat¬ 
tuto orde di alieni sono ben poca cosa. La Fisica ha insegnato 
a costruirne di veri, di notevolmente potenti, forse in grado di 
fermare le testate nucleari ai confini dell'atmosfera, inauguran¬ 
do così un'epoca di pace per il nostro pianeta. 

Senza arrivare, però, a non tanto fantascientifiche battaglie 
stellari à sufficiente sapere che il laser, con la sua luce “pura", 
cura alcune malattie dell'occhio, rettifica con incredibile preci¬ 
sione giganteschi ingranaggi industriali e, perfino, stabilisce 
precise carte di identità delle gemme più preziose: i diamanti. 


LA RIFRAZIONE E LA RIFLESSIONE TOTALE 

L'ottica, nel tradizionale corso di studio impartito in Italia, 
divisa in due parti, quella geometrica e quella fisica 



MEZZO A = OIAMANTE 


MEZZO B = ARIA 
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Soffermiamo la nostra attenzione sull’Ottica geometrica, par¬ 
te della Fisica in cui il raggio di luce viene visto come una ro¬ 
tonda palla d’avorio che rotola sul verde, liscio tappeto di un 
biliardo. La palla urta una sponda con un certo angolo di inci¬ 
denza e se ne allontana con un certo angolo di riflessione rigo¬ 
rosamente uguale, purché tirata senza alcun “effetto”, senza 
cioè forze che ne provochino anche la rotazione su di un asse. 

Immaginiamo ora di avere a disposizione uno strano biliardo 
in cui il piano sia per metà ricoperto in feltro verde molto scor¬ 
revole e per metà di una non meglio precisata plastica rossa 
attaccaticcia e in grado di far sentire il suo forte attrito anche 
sulla superficie liscia della palla d'avorio. Siamo, cioè nelle 
condizioni in cui si trova un raggio di luce quando raggiunge 
la frontiera che separa due mezzi otticamente diversi. Questo 
fatto accade comunemente; basti pensare alla coppia aria-ac¬ 
qua, a quella aria-vetro e - perché no - alle varie coppie che 
forma il diamante che possiede il più elevato coefficiente di ri¬ 
frazione oggi conosciuto. 

Il programma si diverte un po'. Il grosso, visibilissimo raggio 
incide, secondo l’angolo che abbiamo scelto, sulla “barriera” 
creata dalla superficie di confine dei due “mezzi” ottici. 

La barriera viene superata con la deviazione indicata dalle 
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formule tradizionali dell’Ottica e l'angolo del raggio emergente 
viene mostrato sia graficamente, sia con valori numerici. 

Mettiamoci, però, anche in una situazione molto particolare. 
Siamo subacquei e siamo immersi nel mare in una notte senza 
luna. Al nostro polso c’è la fida torcia sub in grado di produrre 
un fascio di luce ben forte e concentrato. In immersione sot¬ 
t'acqua dirigiamo verticalmente la nostra torcia accesa verso 
la superficie: la luce "passa”, sbucando fuori dall’acqua, lan¬ 
ciandosi verso le stelle che guardano il mare di notte. Dirigia¬ 
mo ora la luce della torcia in diagonale muovendo progressiva¬ 
mente il braccio. L'angolo che il fascio di luce fa con la per¬ 
pendicolare alla superficie varia crescendo ogni momento di 
più: 10, 20, 30 gradi; il fascio di luce esce sempre più deviato 
nell'aria, a contrastare l'effimera luminosità della volta stellata. 
Poi, a circa una cinquantina di gradi, bruscamente il raggio 
non emerge più,. rimbalza contro la superficie di separazione 
aria-acqua, quasi avesse incontrato uno specchio e, secondo 
le leggi della riflessione totale, va ad illuminare quel masso 
lontano riempendo di fosforescenti brividi le minuscole creatu¬ 
re del mare di notte. 

I grandi fenomeni della rifrazione e della riflessione sono a 
nostra disposizione con questo programma. C’è una grande 
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scelta di solidi, di liquidi e di gas, tutti trasparenti, con cui prò 
vare, sbizzarrendosi a comandare il percorso di un raggio d 
luce. 


VR(5>=4:VR<6)=4:VR<1)=99:KA^= , ‘’ ,, 
VR(4)=99:VR(2)=1:VR(3)=1 


PR$="R1FRAZI0NE" 


GOSUB 8000 
S0SU8 4000 
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125 : 

130 RESTORE 

140 FOR K=1 TO 7:READ PN$(K):NEXT 
200 PN=7:GOSUB 9400 

210 ON PS SOTO 220,230,240,250,260,270,280 
215 : 

220 VR(5)=6:G0T0 1000 
230 VR(5)=3:GOTO 1000 
240 VR(5)=14:G0T0 1000 
250 VR(6)=6:GOTO 1000 
260 VR(6)=3:G0T0 1000 
270 VR(6M4:GOTO 1000 
275 : 

280 M1$="DAI IL VALORE DELL'ANGOLO" 

290 M2$="DI INCIDENZA " 

300 M3$="I CGRD3= ":I=1 
310 GOSUB 8800 
315 : 

320 IF VR(1)>90 THEN 120 

330 SR=SIN(VR(1)*CPI]/180)*VR(2)/VR(3) 

340 IF SR>1 THEN 400 

350 VR(4)=18Q*ATN(SR/SQR(-SR*SR+1))/CRII:GOTO 410 
400 VR(4)=95 
405 : 

410 GOSUB 9800:G0SUB 6000 
420 GET I$:IF I$<>"C" THEN 420 
430 GOSUB 9900:G0TG 124 
435 : 

1000 SP=(PS-(1NT(PS/3)*3)) 

1004 RESTORE :RR=7+18*SP 
1010 FOR R=1 TO RRiREAD At:NEXT 
1100 PU=PS:FOR K=1 TO 9 
1110 READ PN$(K),D(K):NEXT 
1120 PN=9:GOSUB 9400 
1130 IF PU>3 THEN 1200 
1140 HAt=PN$(PS):VR(2)=D(PS) 

1150 GOTO 320 

1200 HB$=PN$(PS):VR(3)=D(PS) 

1210 GOTO 320 
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1215 : 

4000 RC=15:GOSUB 8100:PRINT "«ZZO A = ";HA$ 
4010 PRIMI SPRINT "MEZZO B = RETURN 
4015 : 

6000 IF VR(1)>90 THEN 6200 

6004 FOR J=0 TO 22:P0KE 12104+J*8,255:NEXT 

6040 H3*=NA$:XH=2:YH=4:GOSUB 9500 

6050 FOR J=6 TO 11:F0R K=9 TO 31 

6060 POKE 1024+K+J*40,VR(5)sNEXT :NEXT 

6070 N3I=MBV.XH=2:YH=19:60SUB 9500 

6080 FOR J=12 TO 17:F0R K=9 TO 31 

6084 POKE 1024+K+J»40,VR(6):NEXT :NEXT 

6085 : 

6090 YH=9:XH=25:M3$="I =,, +STR$(VR(1)) 

6094 GOSUB 9500 

6099 : 

6100 IF VR(1)>63 THEN 6130 
6110 NX=-48»TAN(VR(1)*CPD/180) 

6120 NY=48:G0T0 6150 

6130 NY=88/TAN(VR(1)*CPI3/180) 

6140 NX=-88 
6150 XX=160:YY=96 
6160 X1=NX:Y1=-NY:G0SUB 9600 
6170 XX=164:YY=96:GOSUB 9600 
6200 IF VR(4)>90 THEN 6400 
6280 R$=STR$(VR(4)) 

6285 : 

6290 M3$="R="+M 
6294 YH=15:XH=10:GOSUB 9500 
6300 IF VR<4)>63 THEN 6330 
6310 NX=48*TAN(VR(4)*CPi:/180) 

6320 NY=-48:G0T0 6350 

6330 NY=-88/TAN(VR(4)*CPII/180) 

6340 NX=88 
6345 : 

6350 XX=160:YY=96 
6360 X1=NX:Y1=-NY:G0SU8 9600 
6370 XX=164:YY=96:G0SUB 9600 
6380 RETURN 
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6385 : 

6400 IF VR(4)<>95 THEN 6800 
6410 N3S="RIFL. TOTALE":XH=14 
6414 YH=13:G0SUB 9500 
6430 XX=160:YY=96 
6440 XI=-NX:Y1=-NY:GOSUB 9600 
6450 XX=164:YY=96:60SUB 9600 
6800 RETURN 
6805 : 

6905 RE H »»»« mnn»nnmm 
6907 : 

6910 DATA "A:LIQUIDO" 

6920 DATA "A: SOLIDO" 

6930 DATA “A: GAS" 

6940 DATA "B:LIQUIDO" 

6950 DATA "B: SOLIDO" 

6960 DATA "B: GAS" 

6970 DATA ANG. INC. 

6975 : 


7010 DATA "IDROGENO 
7020 DATA "VAPORE H20 
7030 DATA "OSSIGENO 
7040 DATA "ARIA 
7050 DATA "VAPORE CS2 
7060 DATA " 

7070 DATA " 

7080 DATA " 

709D DATA " 

7095 : 

7110 DATA "ACQUA 
7120 DATA "ETERE 
7130 DATA "ALCOOL 
7140 DATA “GLICERINA 
7150 DATA "SOLF. CAR. 
7160 DATA " 

7170 DATA " 

7180 DATA " 

7190 DATA " 

7195 : 


‘,1.0001390 
‘,1.000257 
‘,1.000272 
', 1.0002926 
',1.001476 
M 
',1 
M 
‘,1 

‘,1.333 

',1.352 

',1.362 

',1.470 

',1.628 

M 

M 

M 

V 
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7210 

7220 

7230 

7240 

7250 

7260 

7270 

7280 

7290 

7295 

7905 


DATA "DIACCIO ",1.309 
DATA "FLU0R1NA ",1.433 
DATA "QUARZO ",1.544 
DATA "SALGEMMA ",1.544 
DATA "V. CROWN L",1.515 
DATA "V. CROWN P",1.615 
DATA "V. FLINT L",1.608 
DATA "V. FLINT P",1.751 
DATA "DIAMANTE ",2.417 


NOTE AL PROGRAMMA 

Con questo programma possiamo gestire il comportamento 
di un raggio di luce nel suo attraversare due mezzi otticamente 
diversi. Il menù iniziale ci chiede che tipo di sostanza deside¬ 
riamo sia il “mezzo A" e, successivamente, che tipo di sostan¬ 
za vogliamo considerare come “mezzo B". Come esempio ab¬ 
biamo scelto - non ce lo saremmo potuti permettere in condi¬ 
zioni sperimentali - nientedimeno che una “lastra” di diamante! 
Come “mezzo B" molto più modestamente scegliamo l'aria. 
Siamo nella terza videata e, a questo punto, facciamo partire il 
nostro raggio di luce scegliendo l’angolo di incidenza che più 
ci aggrada. Nella quarta videata abbiamo il percorso del rag¬ 
gio e ci viene fornito anche il valore dell'angolo del raggio ri¬ 
tratto. Proviamo un po’, ora, a variare l'angolo di incidenza, 
quasi che fossimo al comando di un potente laser perfetta¬ 
mente mobile ed aggressivo nella torretta della nostra astrona¬ 
ve della “Confederazione". Ci accorgiamo subito che oltre un 
certo angolo limite la lastra di diamante si comporta come uno 
scudo assoluto in quanto, benché perfettamente trasparente, 
provoca il fenomeno della riflessione totale. Il computer ci av¬ 
verte che il nostro raggio non è riuscito ad “entrare” nel “mez¬ 
zo B”. Poiché la cosa non ci è molto piaciuta abbandoniamo 
l’astronave e rientriamo nelle pareti del laboratorio per analiz¬ 
zare il comportamento di sostanze più tradizionali come l’aria e 
l'acqua o gli scintillanti cristalli da cui vengono molate le lenti 
ottiche. 
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L'elettricità e la sua “figliola", l'elettronica, pervadono la no¬ 
stra vita quotidiana in questo ultimo scorcio del millennio. Per 
chi non è un “addetto ai lavori” può sorprendere sapere che, 
in effetti, l’elettricità ha una storia molto recente. Intendiamoci: 
potenti fenomeni naturali come i fulmini erano fin troppo noti ai 
nostri lontanissimi progenitori che abitavano nelle caverne; 
molto probabilmente furono proprio i lampi, con la loro corte di 
tuoni e di pioggia, una delle cause che spinsero la nostra spe¬ 
cie prima a scendere dagli alberi e poi, almeno durante la not¬ 
te, ad abbandonare le savane e le rive del mare troppo sco¬ 
perte ed esposte ad un qualunque fenomeno atmosferico. Bi¬ 
sogna fare, però, un salto di molti millenni per trovare, nel 
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campo dell’elettricità, un qualcosa che, finalmente, attiri l'inte¬ 
resse dell’uomo. Solo agli inizi della civiltà greca si scoprì che 
un minerale fossile naturale, l’ambra, spesso e volentieri tra¬ 
sformata in monili o in gioielli, aveva, forse strofinandosi sui ru¬ 
vidi panni di lana con cui allora ci si copriva, la magica pro¬ 
prietà di attirare pezzetti di midollo di sambuco o, letteralmen¬ 
te, di far "drizzare” i capelli. Proprio l’ambra, anzi, con il suo 
nome greco di “electron” ha dato la radice all’elettricità e all'e¬ 
lettronica. Scoperta questa strana proprietà dell’ambra di atti¬ 
rare piccole cose, l'umanità, pur spingendosi nelle conoscenze 
di quasi tutti i campi della fisica sembra, molto semplicemente, 
dimenticarsi dell'elettricità. 

Intere civiltà come quella greca, quella romana, quella ara¬ 
ba, quella del nostro Rinascimento non trovano nessuna delle 
loro menti migliori che abbia qualche spicciolo di tempo da 
dedicare all'elettricità. Solo in un ambiente culturale per certi 
versi “decadente” come quello barocco ecco accendersi le 
prime scintille. 



6 * COSTANTANA 

7 * FERRO 

8 = CARBONE 

9 = -ALTRI/NON NOTO-- 


SCEGLI IL MATERIALE OEL 
FILO, OPPURE INTRODUCI LA 
RESISTIVITÀ', SE NOTA. 
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L’Elettrostatica con tutto il suo corredo di accattivanti curiosi¬ 
tà e con il suo sottile fascino di saper padroneggiare piccoli 
fulmini compare brillantemente non, come ci si potrebbe 
aspettare, nel chiuso di un laboratorio o di un'officina ma “tout 
de suite” nei salotti della gente "bene", nelle corti dei reali, ad 
interessare e a divertire. Almeno un altro secolo passa così 
ma, sulla soglia del XIX secolo, in Italia, Volta incomincia a 
mettere insieme dischetti di rame e di zinco, ammucchiandoli 
uno sull'altro e facendone delle pile. Questo nome oggi fin 
troppo conosciuto deriva proprio dal verbo “impilare", nel suo 
significato di mettere una cosa sull’altra 
La nascita della pila segna un momento magico; come la fu¬ 
ria di un’acqua troppo a lungo trattenuta in un bacino monta¬ 
no, gli studi e gli esperimenti sull’elettricità dilagano; scienziati 
celeberrimi i cui nomi sono immortalati per sempre nelle varie 
unità di misura - a proposito, Volt deriva dal nome di Volta - 
raggiungono conoscenze sempre più approfondite, sempre più 
foriere di applicazioni tecnologiche. 



RES.TA' COHM*M]> 1.7241E-08 
LUNGHEZZA CM]> 3000 
SEZIOhE [MMt£]> 2 
RES.A T=20[OHM]> £5.8615 
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VUOI PASSARE DIRETTAMENTE ALLA 
LEGGE DI OHM ? 

<S/N> > 
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Via via che la storia snocciola i suoi anni i “tecnici" fabbri¬ 
cano i motori, il telegrafo, le lampadine, mentre nel frattempo, 
dal canto loro, i “teorici" colgono realtà profonde formalizzan¬ 
dole in eleganti strutture matematiche. Arriviamo sulle soglie 
del ventesimo secolo ed il progresso diventa travolgente: tra¬ 
sporti elettrici, distribuzione dell'elettricità casa per casa, ra¬ 
dio, televisione e, per finire, il computer! Proprio così, il nostro 
amico di ogni giorno, quello con cui ci stiamo divertendo a stu¬ 
diare, è il più recente prodotto dell'Elettrologia, di quella parte 
della Fisica che in meno di un paio di secoli ha cambiato com¬ 
pletamente il nostro modo di vivere e le nostre possibilità. 


LA LEGGE DI OHM 

L’argomento principe dell’Elettrologia è la legge di Ohm. 
L'attenzione che l’insegnante in classe ha dedicato all'argo¬ 
mento e i suoi frequenti "avete capito" inducono a credere che 
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questa legge è veramente importante e che deve essere una 
di quelle da ^studiare bene, pena un incancellabile “due... a 
posto!". 

È proprio così: una legge facile e sintetica che unisce linear¬ 
mente le “nuoVe" grandezze di "differenza di potenziale" e di 
"intensità di corrente” a quella fisicamente oggettiva realtà che 
è la resistenza dei metalli a farsi, attraversare da sterminate 
quantità di elettroni è importante. È interessante sapere che a 
partire da George Simon Ohm - la legge porta infatti il suo 
nome - una enormità di persone e di laboratori dovettero com¬ 
piere una vera e propria infinità di misure e di esperimenti in 
quanto non solo si sapeva ben poco del comportamento dei 
metalli al passaggio della corrente elettrica ma, soprattutto, si 
stentava a credere che una legge di tale importanza potesse 
essere così elegante nella sua semplicità matematica. Con 
uno stesso metallo si fabbricarono fili di diversa lunghezza e di 
diversa sezione per vedere che resistenza offrissero al pas¬ 
saggio della corrente elettrica "spinta" da differenze di poten- 



RES.fi T=20 COHMJ > 25.8615 
COEFF.T. C C T - 1 ] > 3.93E-03 
TEMPERfiTURfi CC1> 72 
RES I STETnIZ fi C OHM! > 31.1465561 
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ziale sempre crescenti. Si passò poi a paragonare, con identi¬ 
ca lunghezza e con identica sezione, fili di diversi metalli e di 
differenti leghe. Da tutta la somma degli esperimenti si ricavò 
che la legge di Ohm era una legge fondamentale, sempre vali¬ 
da. Le conoscenze furono poi ampliate perché, aumentando la 
differenza di potenziale e quindi l’intensità di cocente che pas¬ 
sava nei conduttori, alcuni sperimentatori ebbero la "scottante” 
sorpresa di constatare che i fili percorsi da corrente elevata si 
riscaldavano notevolmente arrivando perfino alla fusione dopo 
aver brillato di rosso-ciliegia nel chiuso dei laboratori. Rifacen¬ 
do controlli su controlli si vide non solo che il passaggio di 
corrente elettrica aumentava la temperatura del metallo ma an¬ 
che che questo aumento di temperatura faceva generalmente 
crescere a sua volta la resistenza del conduttore 
Gli studi si estesero poi anche al comportamento dei liquidi 
e dei gas, si determinò successivamente il comportamento dei 
"quasi-isolanti" sotto tensione e sotto variazioni di temperatura, 
si generalizzò la legge di Ohm applicandola anche al campo 



RESISTENZA COHMJ > 23.8G13 
D.D.P. CV3> 20.68 

CORRENTE CA3> .798644258 
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VUOI USARE ANCORA LA 
LEGGE DI OHM ? 

CS/N) > 
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delle tensioni e delle correnti alternate in un progredire sempre 
crescente dilconoscenze che, tuttavia, traggono la loro base 
da quella semplice legge di Ohm la cui essenzialità è appan¬ 
naggio e pregio di tutto ciò che è veramente importante. 


105 REflHIHHWHHW WHHW WWHttWWtWHWW 

110 PR$="CONOuTTORI" 

115 REM**+*+-»«Ht********++***»*+***+«****************Hnnr** 

125 : 

150 RESTORE :F0R K=1 IO 8 
160 READ PN$tK>,R<K),ACK):NEXT K 
180 PN<(9)=‘’-AL7RI/N0N NOTO- 1 ' 

190 F0R K=1 T0 9:READ VR$(K):NEXT K 
200 G0SUB 8000 
205 : 

210 M1$=”VU01 PASSARE DIRETTAMENTE" 

220 M2$='‘ALLA INFLUENZA DElLA" 

230 M3$="TEMPERATURA (S/N) >":G0SUB 8400 
240 IF RIt="S" THEN GOTO 1300 
245 : 

250 RC=15:G0SUB 8100:PRINT "SCEGLI IL MATERIALE BEL" 

260 PRINT "FILO, OPPURE INTRODUCI LA" 

270 PRINT "RESISTIVITÀ', SE NOTA." 

275 : 

290 L1=0:L2=0 
300 PN=9:G0SUB 9400 
305 : 

310 MIi="INTRODUCI SOLO I VALORI" 

320 G0SUB 8000:M2Ì="NOTr 
330 IF PS=9 THEN 400 
335 : 

340 VR(1)=R(PS) 

350 GOTO 500 
400 I=1:M3S=VR$(1) 

410 G0SUB 6500 
415 : 

500 1=2 

510 F0R J=2 T0 4 
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520 K3$=VR$(J):G0SUB 550C 
540 NEXT J 

550 IF L1=0 OR L2O0 THEN 290 
555 : 

600 ON LI GOTO 610,620,630,640 
610 VR(l)=VR(4)*VR(3)*lE-6./VR(2) 

620 VR(2)=VR(4)*VR(3)*lE-6/VR(l) 

630 VR(3)=VR(1)*VR(2)*1E6/VR(4) 

640 VR(4)=VR(1)*VR(2)*1E6/VR(3) 

645 : 

650 VR(4)=VR(1)*VR(2)*1E6/VR(3) 

1000 GOSUB 8000 
1010 FOR K=1 TO 4 
1020 PRINT VRfOOjVROO 
1030 IMEXT K 

1300 M1$="VU0I PASSARE DIRETTAMENTE ALLA" 

1310 M2$="LEGGE DI OHM ?" 

1320 M3i=" (S/N) >":GOSUB 8400 
1330 IF RI$="S" THEN 2040 
1335 : 

1340 LI=0 :L2=0 

1350 PR$="VARIAZIONI DI TEMPERATURA" 

1360 GOSUB 8000 
1365 : 

1370 RC=15:G0SUB 8100:PRINT "SCEGLI IL MATERIALE DEL" 
1380 PRINT "FILO, OPPURE INTRODUCI IL" 

1390 PRINT "COEFF. DI T EMP., SE NOTO." 

1395 : 

1410 PN=9:GOSUB 9430 

142Q M1$="INTR0DUCI SOLO I VALORI" 

1430 M2$="N0TI" 

1440 GOSUB 8000 
1445 : 

1450 IF PS=9 THEN 1500 
1460 VR(53=A(PS) 

1470 GOTO 1550 
1475 : 

1500 1=5 

1510 M3$=VR$<5):GOSUB 6500 
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1515 : 

1550 1=4 

1560 M3$=VR$<4):G0SUB 6500 
1570 1=6 

1580 M3$=VR$(6):G0SUB 6500 
1590 M3S=VR$(7):G0SUB 6500 
1595 : 

16G0 IF L1=0 OR 1200 THEN 1300 

1620 ON LI GOTO 1650,1650,1650,1650,1660,1670,1680 

1625 : 

1650 VR(4)=VR(7)/(l+VR(5)*(VR(6)-20)) 

1660 VR(5)=(VR(7)/VR(4)-1)/(VR < 6)-20) 

1670 VR(6>=(VR(7)/VR(4}-1)/VR(5)+20 
1.680 VR(7)=VR<4)*<l+VR(5>*(VR(6)-20)) 

1685 : 

1700 G0SU6 8000 

1710 FOR K=4 TO 7 

1720 PRINT VR$(K);VR(K):NEXT K 

1800 GOTO 1300 

1805 : 

2040 LI=□:L2=0 

2050 PR$="LEGGE DI OHM" 

2100 GOSUB 8000:1=7 
2110 M1$="INTR0DUCI SOLO I" 

2120 M2i="VALORI NOTI 
2130 FOR J=7 TO 9 
2140 I13$=VR$(J):GOSUB 6500 
2150 NEXT J 
2155 : 

2160 1F L1=0 OR L2O0 THEN 2040 

22Q0 ON LI GOTO 2270,2270,2270,2270,2270,2270,2270,2280,2290 
2270 VR(7)=VR(8)/VR<9) 

2280 VR(8)=VR(7)*VR(9) 

2290 VR(9)=VR(8)/VR(7) 

2300 GOSUB 8000 
2305 : 

2310 FOR K=7 TO 9 

2320 PRINT VR$(K);VR(K):NEXT K 

2400 MI$="VUOI USARE ANCORA LA" 
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H 

H 

IBI 

IBI 

IMI 
■ ■1 

IBI 

IBI 

13 

ta> 

n 






INI 

» *ii 

u 

IBI 

IBI 


2AIO H2$="LEGGE DI OHM ?" 

2A20 M3$=" (S/N) >":GOSUB SAOO 
2A30 IF RI$="S" THEN 2040 
2440 PR$="CONDUTTORr‘:GOTO 200 
2455 : 

6500 60SUB 8600:1F RI$="S" THEN RETURN 
6510 1F LlOO THEN 6530 
6520 L1=I-1:RI$="S": RETURN 
6530 L2=I-1:RETURN 
6535 : 

6989 REM*«**-*+******************«******-»****************** 

7000 DATA RAME,.017241E-6,3.93E-3 

7010 DATA ARGENTO..0164E-6.3.SE-3 

7020 DATA PLATINO,.1E-6,3.6E-3 

7030 DATA ALLUMINIO,,0282E-6,4E-3 

7040 DATA NICHEL-CR.1.04E-6,.19E-3 

7050 DATA COSTANTANA,.51E-6,.006E-3 

7060 DATA FERRO,.15E-6.4.5E-3 

7070 DATA CARBONE,40E-6.-.3E-3 

7075 : 

7100 DATA RES.TA' COHH*M]> 

7110 DATA LUNGHEZZA CMI> 

7120 DATA SEZIONE CMMT2D) 

7130 DATA RES.A T=20C0HM]> 

7140 DATA COEFF.T. CCT-ID) 

7150 DATA TEMPERATURA lC3> 

7160 DATA RES1STENZAC0HM]) 

7170 DATA D.D.P. CV3> 

7180 DATA CORRENTE CA3> 

7185 : 

7905 END 

7907 REM*****+«**********»«+**********w**+*************** 


NOTE AL PROGRAMMA 

Come è noto per valutare il comportamento dei metalli al 
passaggio della corrente elettrica bisogna considerare diverse 
cose: dimensioni fisiche del conduttore, resistività propria del 
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metallo o della lega ed infine la temperatura alla quale il con¬ 
duttore si trova. Il menù iniziale di questo programma propone 
perciò due vie distinte a seconda che si voglia o meno analiz¬ 
zare come prima cosa l’influenza della temperatura. Per ora la 
temperatura non ci interessa e, quindi, optando per il no, pas¬ 
siamo sul primo menù “di lavoro" mostrato dalla seconda vi- 
deata. Con questo menù possiamo scegliere il conduttore che 
può essere un metallo più o meno nobile oppure una lega di 
quelle che comunemente si impiegano in “elettricità”. Se ab¬ 
biamo qualche particolare lega segreta di nostra invenzione 
possiamo - opzione 9 - introdurre direttamente il valore della 
sua resistività. 

Poniamo di scegliere un filo di rame della sezione di 2 milli¬ 
metri quadri é lungo ben tre chilometri, una vera e propria “li¬ 
nea" elettrica. 

Stabilito - non ci interessava la temperatura - che il filo è ot¬ 
timamente raffreddato dall'aria circostante e quindi deve tro¬ 
varsi a circa 20 gradi, abbiamo dal nostro computer il valore 
della resistenza complessiva della linea elettrica costituita del 
conduttore. Sappiamo dalla legge di Joule che il filo al pas¬ 
saggio della corrente elettrica si riscalda e perciò se copriamo 
il filo con un isolante elettrico (ma anche termico) e lo avvol¬ 
giamo in una unica matassa non vi sarà più un opportuno raf¬ 
freddamento e dovremo valutare come la resistenza sia variata 
in funzione dell’aumento di temperatura. Entriamo nella secon¬ 
da parte del programma - videata 4 - dove, volendo, possia¬ 
mo anche introdurre un coefficiente di temperatura particolare 
per un conduttore non in elenco. Con la nuova temperatura 
abbiamo - videata 5 - il relativo valore della resistenza. A que¬ 
sto punto, in possesso del valore della resistenza, possiamo 
spaziare sulla legge di Ohm. 
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UTILITÀ: 

CONVERSIONI 
DI UNITÀ DI MISURA 

Quando si apre un libro di Fisica viene quasi la voglia di 
stornellare "... le grandezze sono tante, milioni di milioni...’’. 
Abituati alla matematica con le sue poche variabili e con i suoi 
pochi termini noti, quando si passa alla Fisica si scopre che 
l’intero alfabeto è già tutto bello che esaurito già alla prima 
metà del primo volume. Tutte le grandezze che via via com¬ 
paiono sono un po' come i figli di una numerosa famiglia; 
ognuna vuole il suo bel simbolo, la sua unità di misura omo¬ 
genea, perfino il simbolo della sua unità di misura, per non 
parlare di multipli e sottomultipli per ogni singola unità. 



CALCOLI 

& CONVERSIONI & COSTANTI 

1 

= X: 

DA SEC A X=H 5 Y=Ms Z =S 

a 

= X: 

DA X=H!Y =M:Z =S A X=SEC 

3 

= X: 

OA GRD A X=GRD:Y' iZ 1 * 

4 

= X: 

DA X=GRD:Y':Z 1 ' A X=GRO 

3 

= X: 

DA GRADI A RADIANTI 

6 

= X: 

DA RADIANTI A GRADI 

7 

= X: 

DA GIRI/M A RAD/S 

8 

= Xi 

ALTRE CONVENZIONI 

9 

= = = 

= =CALCOL I= = = = 

X = 

0 


Y » 

0 


Z = 

0 


M 3 

0 


******* 


1 SCEGLI CHE COSA 1 

VUOI 

FARE > 














CONVERSIONI 


IMI.il 


Mamma Fisica ha un bel da fare distribuendo a piene mani 
l'alfabeto latino, quello greco, qualcosa del gotico e perfino 
dell'ebraico: ogni grandezza si impossessa della lettera e fug- 
ge via lasciando sempre meno lettere per quelle che vengono 
dopo. 

Grave complicazione per la Fisica ma, naturalmente, anche 
per noi. Come se non bastasse, oltre a tutti i simboli che ven¬ 
gono studiati dalla Metrologia, nella Fisica vi sono anche una 
infinità di costanti, dalle molte, troppe cifre, per non parlare poi 
delle “unità di importazione", quelle dei paesi anglosassoni, di 
cui faremmo volentieri a meno nella esattezza formale e nella 
comodità pratica del nostro sistema metrico decimale. Vero è 
che qualche "scheletro nell'armadio" l'abbiamo anche noi fisi¬ 
ci, basti pensare alla misura del tempo e dei gradi, in cui il si¬ 
stema sessagesimale di babilonese memoria è sempre pronto 
a seminare errori nei calcoli, in particolare nelle moltiplicazioni 
e nelle divisioni. 

Il programma, che gli Autori hanno voluto vedere come una 


CALCOLI & CONVERSIONI & COSTANTI 


1 = X s DA MIGLIO MAR. A KM 

2 = X: DA MIGLIO ING. A KM 

3 = X: DA KM/H A M/S 

4 = XS DA NODO A KM/H 

5 = Xs DA MEGA- A UNITA' 

6 = XS DA MICRO- A UNITA' 

7 = X! DA NANO- A UNITA' 

8 = Xs ALTRE CONVENZIONI 
g = = = = =CALCOL I = = = = 

X = 0 

Y = 0 

Z = 0 

M = 0 


******* 


INTRODUCI L’ESPRESSIONE 
OD IL VALORE 
X = 3S 
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*■■■■■■■■■ 


“utilità", è in grado di convertire con immediata esattezza va¬ 
riabili e misure, dando non solo il valore delle più comuni co¬ 
stanti ma offrendo anche la possibilità, utilizzando le istruzioni 
“DATA", di costruirsi un utilissimo strumento su misura, a se¬ 
conda dei campi di interesse nello studio della Fisica oppure 
- forse non dovremmo dirlo - in funzione di quanto, in quel 
particolare momento dell’anno scolastico, il professore di clas¬ 
se va spiegando per poi “pretendere” durante le interrogazio¬ 
ni. 

100 X=0:Y=0:Z=D:M=0 

104 H=1 

107 : 

109 REf't«***HmHHHHHr*****HHHr**»*******«**********t4******i 

110 PRt='CALCOLI & CONVERSIONI 4 COSTANTI' 


CALCOLI & CONVERSIONI & COSTANTI 


1 = RI DA MIGLIO MAR. A KM 

2 = RI DA MIGLIO ING. A KM 

3 = Ri DA KM/H A M/S 

4 = Ri DA NODO A KM/H 

3 = RI DA r-EGA- A UNITA' 

6 * RI DA MICRO- A UNITA' 

7 = RI DA NANO- A UNITA' 

8 * RI ALTRE CONVENZIONI 

9 = =*==CALCOLI=*== 

R = 36 

Y = 0 

Z = 0 


******* 


SCEGLI CHE COSA 
VUOI FARE > 
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CONVERSIONI 


i i i i i i i i i il ___ 1 1 1 1 1 1 1 1 1 * 

111 IBHH<HHHH(w« <Hi»»n i mHW w nni«iiiiniiai i H 

115 : 

190 RESTORE :READ HH 
195 : 

200 G0SU6 3000 
205 : 

210 FOR 14=1 T0 H 
220 FOR K-l TO 7 
230 READ V$,N$,C(K),0(K) 

234 IF C(K)<>0 THEN 240 
238 PN$(K)="X> h +V$:G0T0 250 
240 PN$(K)="X: DA "+V$+" A H +N$ 

250 NEXT K:NEXT U 
255 ; 



CALCOLI & CONVERSIONI & COSTANTI 


X: DA MIGLIO MAR. A KM 
X: DA MIGLIO ING. A KM 
X: DA KM/H A M/S 
X: DA NODO A KM/H 
X: DA MEGA- A UNITA’ 
X! DA MICRO- A UNITA’ 
Xi DA NANO- A UNITA’ 
X: ALTRE CONVENZIONI 

= = ==CALCOL I= = = = 



X = 36 

Y = 60 

Z = 0 


M 


0 
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30C PN$(8)="X: ALTRE CONVENZIONI " 

350 PN$(9)="==CALC0LI==" 

355 : 

4M PN=9;G0SUB 9400 
405 : 

410 IF PS=9 THEN GOTO 200Q 
420 IF PS=8 THEN GOTO IMO 
425 : 

430 IF H=1 ANO PS<5 THEN ON PS GOTO 2400,2500,2600,2700 
435 : 

500 X=X#C<PS)«0<PS> 

510 R€=13:G0SUB S100:PRINT S*:RC=13:60SUB 8100 
520 PRINT " X = ";X 
530 GOTO 400 


CALC 

I 2 


CALCOL I & CONVERSIONI & COSTANTI 


X: 

X: 

X: 

X: 

X: 

X: 

X: 

Xi 


DA MIGLIO MAR. 
DA MIGLIO ING. 
DA KM/H A 
DA NODO A 
DA MEGA- 
DA MICRO- 
DA NANO- 


A KM 
A KM 

M/S 
KM/H 
A UNITA' 

A UNITA' 

A UNITA' 




ALTRE CONVENZIONI 


= = = =CALCOL 1 = = == = 


X = SS.672 
Y = 60 

Z = 0 


M = 0 







CONVERSIONI 


535 : 

1000 H=H+1:IF H<=HM THEN 110 
1010 RESTARE :60T0 104 
1015 : 

1040 H=1 

2000 S$=’"':!H$=‘ i INTR0[KJCI L'ESPRESSIONE" 
2010 N2$="0D IL VALORE":1=1 
2015 : 

2020 H3$=" X= ":GOSUB 9000 
2030 IF RI$="N" THEN 2120 
2040 GOSUB 5000 
2050 50SUB -3000: GOTO 400 
2055 : 

2120 M3*= H Y= ":GOSUB 9000 


CALCOLI & CONVERSIONI & COSTANTI 


DA MIGLIO MAR. A KM 
DA MIGLIO ING. A KM 


DA KM/H A M/S 
DA NODO A KM/H 
DA MEGA- A UN 
DA MICRO- A UN 
DA NANO- A UN 


A UNITA’ 
A UNITA’ 
A UNITA’ 


ALTRE CONVENZIONI 
=CALCOL I= = = = 


X = 66.672 

Y = G0 
Z = 0 

M = 0 


******* 


INTRODUCI L’ESPRESSIONE 
OD IL VALORE 
X= Y/X 
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2130 IF RI$="N" T^N GOTO 2220 
2140 GOSUB 5000 
2150 GOSUB 3000:GOTO 400 
2155 : 

2220 m=" Z= ": GOSUB 9000 
2230 IF RI$="N" THEN 2320 
2240 GOSUB 5000 
2255 : 

2320 N3$=" M= GOSUB 9000 
2330 IF RI$="N" THEN 400 
2340 GOSUB 5000 
2350 GOSUB 3000:GOTO 400 
2355 : 

2400 Z=X:X=INT(X/3600):Z=Z-X*3600 
2410 Y=INT(Z/6Q):Z=Z-Y*60 
2420 GOSUB 3000:GOTO 400 
2495 : 

2500 X=Z+Y*60+X*3600:Y=0:Z=0 
2510 GOSUB 3000:GOTO 400 
2515 : 

2600 Y=(X-INT(X))*60:X=INT(X) 

2610 Z=(Y-INT(Y))*60:Y=INT(Y) 

2620 GOSUB 3000:GOTO 400 
2625 : 

2700 X=X+Y/60+Z/3600:Y=G:Z=0 
2710 GOSUB 3000:GCTO 400 
2995 : 

3000 GOSUB -3000:RC=13:G0SU8 S10G:PRINT " X = “;X 
3010 PRINT " Y = H ;Y 
3020 PRINT " Z = “;Z 

3030 PRINT "-":RC=17:G0SUB 8100: PRINT M = n ;M 

3040 RETURN 

4999 : 

5000 P-lÌ="5100"+f13$+ST* 

5010 P2$="X="+STR$(X)+ ,, :Y="+STRt(Y) 

5020 P3$="C2 CRSRT]Z="+STR$(Z)-*-":H="+STR*(M) 

5030 P3$=P3<+":H=”+STR$(H)+":G0T0 5100" 

5040 GOSUB 9200 
5045 : 
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CONVERSIONI 


IBI 

IBI 

IBI 

IBI 

IBI 

IBI 


■■I 

IBI 

IBI 

IBI 

IBI 



n 

H 

XI 

in 


5100 X= 36 
5105 : 

5110 GOTO 110 
5115 : 

5205 
5215 : 

6000 DATA 5 
6005 : 

6110 DATA SEC,"X=H:Y=H:Z=SM,1 
6120 DATA "X=H:Y=H:Z=S","X=SEC",1,1 
6130 DATA 6RD,"X=6RD:Y' \V ' ",1,1 
6140 DATA "X=6RD:Y':Z''“,"X=6RD",1,1 
6150 DATA GRADI,RADIANTI,.017453293,0 
6160 DATA RADIANTI,GRADI,57.29578,0 
6170 DATA G1RI/H,RAD/S,.10471976,0 
6205 : 

6210 DATA GRADI C.GRADI F,1.8,32 



CALCOLI & CONVERSIONI & COSTANTI 


i 

S 

X: 

OA 

SEC A X=H!Y=M:Z=S 

2 

S 

X: 

DA 

X=H s Y=M:Z =S A X =SEC 

3 

s 

X: 

OA 

GRÒ A X=GRD:Y’:Z •• 

4 

= 

X: 

DA 

X=GRD s Y *:Z 1 ’ A X=GRD 

5 

s 

X: 

DA 

GRADI A RADIANTI 

6 

s 

Xi 

DA 

RADIANTI A GRADI 

7 

= 

X: 

DA 

GIRI/M A RAD/S 

8 

= 

X: 

ALTRE CONVENZIONI 

9 

= 

3 S 

= = CALCOL I =* = = 



X 

Y 

Z 


0 

53 

59.7408209 


M = 0 



»»«»»»» _ 

SCEGLI CHE COSA 
VUOI FARE > 
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6220 DATA GRADI C,KELVIN,1,273.15 

6230 DATA GRADI F,GRADI C,.55555556,-17.777778 

6240 DATA WH,J0ULE,3.6E3,Q 

6250 DATA KCAL,JOULE,4186.8,0 

6260 DATA J0ULE,WH,2.78E-4,00 

6270 DATA HP,«ATT,735.499.0 

6305 : 

6310 DATA ATM,PASCAL,1.01325E5,0 
6320 DATA MMHG,PASCAL. 133.322,0 
6330 DATA HMH2G,PASCAL,9,80665,0 
6340 DATA PASCAL,ATM,9.86923E-6.0 
6350 DATA MMHG.MMH20,13.59506,0 
6360 DATA KG-PESO,NEWTON,9.80665,0 
6370 DATA NEWTON,KG-PESO,.1019716.0 
6405 : 

6410 DATA MIGLIO MAR.,KM,1.852,0 
6420 DATA MIGLIO ING.,KM.1.61,0 











Pi 

IBI 

■■1 

IBI 

IBI 

MI 








k! 

HI 

HI 

IH 

IBI 

IBI 

IBI 

HI 

IBI 

-, CONVERSIONI “I 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

13 


6430 DATA KM/H,M/S,.27777778,0 
6440 DATA NODO,KM/H,1.852,0 
6450 DATA MESA- .UNITA',1E6,G 
6460 DATA MICRO-,UNITA',lE-6,0 
6470 DATA NANO- .UNITA',lE-9,0 
6475 : 

6510 DATA VEL. LUCE CM/S3,,0,2.997?25E8 
6520 DATA ACC. GRAVITA' CM/ST23,,0,9.80665 
6530 DATA C. 6RAV. CNMT2/K5T23,,0,6.673234E-11 
6540 DATA C, PLANK EISO,,C,ó.6262965E-34 
6550 DATA MASSA ELETTR. CKS3,,0,9.109558E-31 
6560 DATA MASSA PROTONE CKS3,,0,1.672614E-27 
6570 DATA NUM. AVOGADRO,,0,6.022169E23 
6575 : 

6989 REM********************»#*********HHt*****+************* 


NOTE AL PROGRAMMA 

Con questo programma di utilità si possono non solo evitare 
tutti i noiosi calcoli di conversione ma anche “memorizzare” i 
valori delle costanti che impieghiamo nel quotidiano studio di 
una parte della Fisica. 

Il programma, data la vastità delle conversioni possibili, di¬ 
spone di cinque tabelle, di cui una per le grandezze di tipo non 
decimale come le ore e i minuti, oppure come i gradi e i ra¬ 
dianti, e altre per le conversioni fra grandezze di tipo decima¬ 
le. Si passa dall'uno all’altro menù utilizzando l’opzione "8". 

Nella seconda videata vi è un esempio di una conversione e 
dei calcoli per sapere quanto tempo un aliscafo (velocità 36 
nodi) impiega sul percorso Napoli-Capri (distanza 60 chilome¬ 
tri). Il procedimento da seguire, mostrato dalle varie videate, 
consiste nel digitare il valore noto, 36 nodi, introdurlo premen¬ 
do /RETURN/ e successivamente scegliere la opzione. A que¬ 
sto punto con la opzione “9’’ possiamo passare direttamente 
alla fase dei calcoli, ricordando, però, che il programma non 
accetta espressioni di tipo trigonometrico. Ottenuto il valore in 
ore nella "x" possiamo ritornare con l'opzione “8” alla prima ta¬ 
bella per trasformare il valore “decimale" delle ore prima in se¬ 
condi e poi nella più consueta evidenziazione in minuti e in se¬ 
condi. 

L’ultima videata ci mostra i valori delle costanti inserite in 
questo programma di utilità; non dovrebbe essere difficile, vi¬ 
sto che ormai siamo “esperti in Basic", farci un vero e proprio 
comodo elenco a cui far riferimento nei nostri calcoli e nelle 
nostre esercitazioni. 
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UTILITÀ: 


CALCOLI CON I VETTORI 


Fin dall’inizio della Fisica, nella Meccanica troviamo che non 
è sufficiente il concetto elementare di “quantità numerica" da 
attribuire ad una certa variabile, ad una certa grandezza. 

Già le forze, prepotentemente, non accettano di essere defi¬ 
nite soltanto con la loro intensità; è fin troppo evidente che è 
necessario non solo sapere lungo che direzione una forza fa 
muovere ma anche se “tira" o se "spinge”. È necessario un 
ente matematico che sappia trattare insieme e contempora¬ 
neamente i tre parametri di intensità, direzione e verso. 



VETTORE VI 
IN MEMORIA 
DA MEMORIA 
SOMMA 

DIFFERENZA 
PRODOTTO # N 
PR. SCALARE 


V3=V1 

V 1 =V3 

VI =V1+V2 
vi=vi-va 

V 1 =V1*N 
N=vi*va 


= PR. VETTORIALE V1=V1*V2 

= -FINE- 


******* 


SCEGLI CHE COSA 
VUOI FARE > 
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L'ente c'è e si chiama vettore. I problemi incominciano a sor¬ 
gere quando si ha a che fare con più di un vettore e, come è 
giusto, si considerano i vettori nello spazio tridimensionale. 

Di norma nei trattati elementari di Fisica classica non si va 
oltre a composizioni e scomposizioni su di un piano, e solo di 
tanto in tanto si trovano esercizi su operazioni più complesse, 
quali i prodotti. 

Questo programma, l’ultimo, mostra - se mai ve ne fosse bi¬ 
sogno - quale stupendo mezzo sia il computer, in particolare 
quando diventa un potente alleato della mente umana che in 
molte, troppe cose ha difficoltà di raffigurazione e di esposizio¬ 
ne sintetica. 

Diamo un'occhiata al menù iniziale. Come primo fatto impor¬ 
tante troviamo la conversione automatica tra Cuna e l’altra delle 
due rappresentazioni in cui è conveniente considerare un vet¬ 
tore in funzione delle operazioni che si andranno a compiere. 
Si può introdurre il vettore con la rappresentazione che è in 
nostro possesso: lo schermo ci darà subito anche i parametri 



1 = NUOVO VI - COMPONENTI 
a = NUOVO VI - MODULO 
3 = CALCOLI CON I VETTORI 


»«««»«» _ 

SCEGLI CHE COSft 
VUOI FARE > 
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della seconda rappresentazione. Il menù, molto vasto, spazia 
poi tra tutte le consuete operazioni possibili, anche di tipo 
complesso come i prodotti vettoriali. Questo programma può 
essere usato quindi come un utile controllore delle esercitazio¬ 
ni pratiche meravigliandoci ancora una volta di quanto sia ra¬ 
pido ed efficiente il nostro "vecchio” compagno di giochi ora 
diventato compagno dei nostri studi. 

99 REfHHr******+**«**+♦-«•♦**♦**■*■+*+*+*******+*«-♦-+****+♦**#* 

100 DIM VRC12) 

105 : 

109 REHw hhih i» H wmmHwmwwwwwwtwtw 

110 PRi="CALCOLI CON VETTORI" 

111 REM**************************************************** 
115 : 

200 50SUB 3000:NI=0 



V1Y = -9.806G 


rtttttt* _ 

INTRODUCI LE 

COMPONENTI DEL VETTORE VI 
VIZ = 
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■■■ 

■■1 

■■■ 

IBI 

IBI 


IBI 

■ai 

■ai 

IBI 

IBB 

■■1 

IBI 

IBI 

IBI 

IBI 

-, CALCOLI CON I VETTORI 

IBI 

IBI 

IBI 

IBI 

IBB 

■Il 

IBI 

IBI 

IBI 

IBI 

.1 __ -11- 

IBI 

IBI 

IBI 

IBI 

IBB 


300 PN$<1)="VETTORE Vi" 

310 PN$(2)="IN MEMORIA V3=Vi" 

320 PN$(3)="DA MEMORIA V1=V3" 

330 PN$(4)="50MMA V1=V1+V2" 

340 PN$(5)^'DIFFERENZA V1=V1-V2" 

350 PN$(6)="PRODOTTO * N V1=V1*N" 

360 PN$(7i="PR, SCALARE N=V1*V2" 

370 PN$(6)="PR. VETTORIALE V1=V1*V2" 

380 PN$(9)="-FINE—" 

385 : 

AGO PN=9:GOSUB 9400 

410 QN PS GOTO 1000,1200,1400,1600,1800,2000,2200,2400,2600 
415 : 

1000 PR$=PN$(PS) 


CALCOLI CON VETTORI 

1 

a 

VETTORE VI 


2 

a 

IN MEMORIA 

V3 = V 1 

3 

= 

OA MEMORIA 

V 1 =V3 

4 

= 

SOMMA 

V1=V1+V2 

5 

= 

DIFFERENZA 

V1=VI-V2 

6 

a 

PRODOTTO * N 

V 1 = V 1 *N 

7 

= 

PR. SCALARE 

N=V1*V2 

8 

= 

PR. VETTORIALE 

VI =V1*V2 

9 

= 

-FINE- 

** - 



VX VY 

vz 

V 1 


10 0 

0 

V 2 


0 -9.8066 

0 

V 3 


0 -9.8066 

0 

******* 


SCEGLI 

CHE COSA 


VUO I 

FARE > 
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1005 : 

1010 riO=SQR(VR( 1 )*VR( 1 ) +VR(2)*VR(2) +VR(3)*VR(3) ) 

1020 IF HB=0 THEN GOSUB 8000:G0TQ 1120 

1024 IF VR(3)=Q THEN A1=CPD/2:S0T0 1034 

1025 : 

1030 A1=ATN((S0R(VR(1)*VR(1)+VR(2)*VR(2)))/VR(3)) 

1034 IF VR(1)=0 THEN A2=CPIl/2:GOTO 1050 
1040 A2=ATN(VR(2)/VR(1)) 

1050 Gl=180*Al/C P13 
1060 52=180*A2 /lPI3 

1065 : 

1066 60SUB 8000 

1070 RC=10:50SUB 810G:PRINT ,, V1X=";VR(1) ; TAB(17);'‘M0D= i! ;MD 
1080 RC=12:50SUB 8100SPRINT ,, V1Y= ,, :VR(2); TA8(15>:" <TETA=*-: 


CALCOLI CON VETTORI 

1 

= VETTORE VI 


2 

= IN f-EMOR 1A 

V3 = V 1 

3 

= DA MEMORIA 

V 1 =V3 

4 

= SOMMA 

V1=V1+V2 

S 

= DIFFERENZA 

V1=V1-V2 

6 

=• PRODOTTO * N 

V1=V1*N 

7 

= PR. SCALARE 

N=V1*V2 

8 

« PR. VETTORIALE 

V 1 =V 1 *V2 

9 

*-FlhC- 

“ ~ 


VX VY 

vz 

V 1 

0 -9.8066 

0 

V 2 

0 0 

0 

V 3 

0 -9.8066 

0 

**** 

**« 


1 SCEGLI CHE COSA 


VUO 

I FARE > 






c: 

■■■ 

IBI 

IBI 

IBI 

--- 

--- 

--- 

CALCOLI CON I VETTORI L ' 

TI 

II 

p 

II 

— 

-□ 


i_L 

J_L 

J_L 

J_L 

_ 









1090 PRINT Al sprint TAB(19) (6R=*';G1 ; ") ” 

1100 PRINT 1, V1Z=";VR(3) ; TAB(15);” < FI=":A2 
1110 PRINT TAB(19);" <GR=";G2;"> U 
1115 ! 

1120 PN$(1)-‘NUOVO VI - COMPONENTI" 

1130 PN$(2)="NU0V0 VI - MODULO 1 ' 

1140 PN$(3)="CALC0LI CON I VETTORI" 

1150 PN=3;G0SUB 9400 
1155 : 

1160 IF PS=3 OR Nl=l THEN GOTO 1190 
1165 : 

1170 Ni -1 

1174 VR(4)=VR(1);VR(5)=VR(2>:VR(6)=VR(3) 

1180 VR(1)=0:VR(2>=0:VR ( 3>=D 



V1X = 0 M00 = 9.8066 

V 1 Y= -9.8066 <TETA= 1.57079633 

( GR= 90 ) 

V1Z= 0 < FI= 1.57079633 

<GR= 90 ) 
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--- 

--- 

--- 

--- 
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1185 : 

1190 0N PS GOTO 5000.5200,5400 
1195 : 

1200 VR(7)=VR(1):VR(8)=VR(2):VRC9>=VR(3) 
1210 GOTO 110 
1295 : 

1400 VR(4)=VR(1) :VR(5)=VR<2> ;VR(6)=VR<3> 
1410 VR(1)=VR(7):VR(2)=VR<8):VR(3)=VR(9) 
1420 GOTO 110 
1495 : 

1600 VR(1)=VR(1)+VR(4):VR<2>=VR(2)+VRi5) 
1610 VR(3)=VR(3)+VR(6) 

1615 : 

1620 VR < 4)=0:VR(5)=0:VR(6)=0 
1630 GOTO 110 
1695 : 

1600 VR(i)=VR(l)-VR(4):VR(2)=VR(2)-VR<5) 
1610 VR(3)=VR(3)-VR(6) 

1315 : 

1820 GOTO 1620 
1895 : 

2000 PR$=PN$(PS):GOSUB 3000 

2010 M$="INTROOUCI IL NUMERO" :M2*=' m 

2020 M3$=" N= 1=11:GOSUB 8800 

2030 VR(1)=VR(1)*VR(11) :VR(2)=VR(2)*VR(ll'.t 

2040 VR(3)=VR(3)*VR(11) 

2050 GOTO 110 
2055 : 

2200 PR$=PN$<PS):GOSUB 3000 
2210 PC=VR(1)*VR < 4 > +VR(2)*VR(5)+VR C 3 > *VR(6) 
2220 RC=4:GOSUB 8100:PRINT “ V1*V2 = “:PC 
2225 : 

2230 Ì124="CQNTINUARE 1 ' : GOSUB 8200 
2240 GOTO 110 
2255 : 

2400 VX=VR(2)*VR(6)-VR(3)*VR(5} 

2410 VY=VR(3)*VR(4)-VR(1> *VR(6) 

2420 VZ=VR(1)*VR(5)-VR(2)*VR(4) 

2430 VR(1)=VX:VR(2)=VY:VR(3)=VZ 
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2435 : 

2440 GOTO 1620 
2445 : 

2600 FRINÌ "CSHIFT3+EH0ME3":END 
2995 : 

3000 50SUB SODO 
3005 ; 

3010 RC=13:G0SUB BlOOsPRINT TAB(S);"VX"; TAB(16);"VY"; 
3014 FRINÌ TAB(25);"VZ“ 

3020 FOR K-l TO 3 

3030 H=K:IF K=3 THEN H=4:PRINT "-" 

3035 : 

3040 RC-13+H:GOSUB 8100:FRINÌ “V"#;" ";VR(K»3-2); 

3050 RC=13+H:G0BUB 8100:FRINÌ IABC12)";VR(K*3-1) 
3060 RC=13+H:G0SUB BlODsPRINT TAB(21); H ";VR(K*3) 

3065 : 

3070 NEXT K:RETURN 
3075 : 

5000 50SUB 3000:MI$="INIRODUCI LE " 

5010 M2$="COMPONENTI DEL VETTORE VI" 

5020 H3$= ,! V1X = “ : 1=1 : GOSUB 8800 
5030 M3*=”V1Y = 11 : GOSUB .3800 
5040 H3$=”V1Z = GOSUB 8800:6010 1010 
5045 : 

5200 GOSUB 3000 :MI"INTRODUCI" 

5210 M2$=“IL MODULO DI VI" 

5220 M3$="M0DV1 = ”:1=1:GOSUB 8800 
5230 M2$="IL VALORE DELL'ANGOLO” 

5240 M3$="<TETA = GOSUB 8300 
5250 M3$=”< FI = ":GOSUB 8800 
5255 : 

5260 M3$="E' ESPRESSO IN GRADI (S/N)?" 

5270 Ml$=" GOSUB 8400 
5275 : 

5280 1F RI$="N" THEN GOTO 5300 

5290 VR(2)=VR(2)F13/180:VR(3)=VR(3)*EP13/180 

5295 : 

5300 MD=VR(i):A1=VR(2):A2=VR(3) 

5310 VR(3)=MD*C0S(A1) 
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ir 


5320 VR(2)=MD*SIN<Ai)*SIN(A2> 
5330 VR(1)=MD*SIN(A1)*C0S(A2) 
5340 GOTO 1050 
5395 : 

5400 GOTO 110 
5405 : 

5409 


NOTE AL PROGRAMMA 

Questo secondo programma di utilità, piuttosto raffinato, ci 
permette di spaziare a nostro piacimento nel difficile campo 
dei calcoli vettoriali. Il menù iniziale ci indica le operazioni pos¬ 
sibili. Facciamo un esempio: vogliamo costruirci un accelero¬ 
metro per la nostra moto o per l'auto di famiglia. L'accelero- 
metro sarà essenzialmente un "pendolo" che con il mezzo di 
trasporto fermo o marciante a velocità costante si posizionerà 
in verticale in quanto assoggettato unicamente alla forza di 
gravità. Accelerando, il pendolo dell’accelerometro tenderà a 
spostarsi di un certo angolo dalla verticale. Dobbiamo tarare 
la scala in modo che dall'angolo di inclinazione possiamo ri¬ 
salire all'accelerazione o alla forza del motore del nostro mez¬ 
zo di trasporto. Introduciamo perciò il vettore dell’accelerazio¬ 
ne di gravità “g" mettendolo in memoria con l'opzione " 2 ". Dia¬ 
mo adesso il valore del nostro vettore ed effettuiamo la somma 
dei due vettori. Nell'ultima videata possiamo leggere il valore 
dell'angolo di inclinazione dell'accelerometro, valore che indi¬ 
cherà la nostra accelerazione. 
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APPENDICE 

SUBROUTINES 


In questa appendice sono riunite tutte le subroutines usate 
da tutti i programmi di questo libro. Come già detto in "Come 
usare i programmi di questo libro" questo metodo evita di do¬ 
verle ribattere per ogni programma e permette di ottenere pro¬ 
grammi più semplici e chiari. 

Una subroutine è un pezzo di programma che termina con / 
RETURN/ ed è utilizzato dal programma principale con una 
istruzione tipo /GOSUB riga/: questa istruzione (GO=vai, 
SUB=subroutine) fa continuare l’elaborazione alla subroutine 
che RITORNA, una volta terminata, al programma principale, 
precisamente alla istruzione successiva al /GOSUB/. 

Per ogni subroutine è indicato con esattezza che cosa fa e 
quali variabili usa: questo è prezioso se vogliamo usarle nei 
programmi creati da noi. L'uso delle subroutines infatti sempli¬ 
fica molto la programmazione anche se occorre usarle con at¬ 
tenzione, preparando prima tutte le variabili necessarie, ed uti¬ 
lizzando esattamente le variabili modificate. 

Come prima cosa armiamoci di pazienza e copiamo tutte e 
quindici le subroutines. Ricordiamoci che non si devono copia¬ 
re le righe dispari, e che si possono saltare gli spazi. 

Copiamo (e controlliamo) tutte le subroutines, salvandole su 
nastro - meglio se all’inizio di un nastro nuovo - con il coman¬ 
do /SAVE “SUBROUTINES”/. 

Quando vogliamo scrivere un programma che le usa, per 
prima cosa dobbiamo caricarle dal nastro, con il comando 
/LOAD "SUBROUTINES"/, e, dopo, possiamo copiare il pro¬ 
gramma. Salviamo su nastro il tutto con il nome del program¬ 
ma che abbiamo scritto. 


TABELLA DELLE SUBROUTINES 


1 - INIZIALIZZAZIONE SCHERMO 

2 - POSIZIONAMENTO CURSORE 

3 - PRESENTAZIONE MESSAGGI 

4 - ATTESA DI TASTO PREMUTO 

5 - PAUSA 

6 - DOMANDA SÌ/NO 

7 - INGRESSO DATI NUMERICI 

8 - INGRESSO STRINGA 

9 - SCELTA PROGRAMMI 
10 - MODIFICA PROGRAMMI 


/GOSUB 8000/ 
/GOSUB 8100/ 
/GOSUB 8600/ 
/GOSUB 8300/ 
/GOSUB 8200/ 
/GOSUB 8400/ 
/GOSUB 8800/ 
/GOSUB 9000/ 
/GOSUB 9400/ 
/GOSUB 9200/ 
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ii 

- ALTA RISOLUZIONE 

/GOSUB 9800/ 

12 

- PUNTO (XX,VY) 

/GOSUB 9700/ 

13 

- RIGA (XX.YY.X1.Y1) 

/GOSUB 9600/ 

14 

- PRINT (5XH.YH) 

/GOSUB 9500/ 

15 

- BASSA RISOLUZIONE 

/GOSUB 9900/ 

SUBROUTINE 1 


INIZIALIZZAZIONE SCHERMO 



Molte volte occorre pulire lo schermo, per esempio all'inizio 
di un programma, oppure dopo aver presentato alcuni risultati 
e prima di presentarne altri. Per far ciò si può usare la SUB- 
ROUTINE 1, che pulisce tutto lo schermo e prepara sette va¬ 
riabili (CO, CI, C2, C3, C4, C5, C6) che definiscono i colori 
delle lettere e dello sfondo nelle varie zone del video. Infatti 
per tutti i programmi di questo libro si usa il modo colore este¬ 
so e lo schermo è diviso in quattro zone: la prima riga che 
contiene il titolo, la parte centrale (zona “testo”), le ultime tre 
righe riservate ai messaggi e domande (zona “domande") e il 
bordo. 

I colori scelti sono: giallo per bordo e sfondo testo, lettere 
nere, giallo per il titolo e viola per la zona domande. 

La SUBROUTINE 1 fa anche altre cose: presenta sulla prima 
riga il titolo del programma (deve essere nella stringa PR$) e 
prepara una stringa di 22 spazi (S$) che serve per cancellare 
una riga sullo schermo. Inoltre prepara due valori (MC e MV; 
relativi allo schermo 

II cursore è posizionato all'inizio della riga 3, pronto a scrive¬ 
re nella zona testo 


7903 REM*****«*«SUBROUTINE #1#**♦*♦*** 
7905 REM INiZIALIZZAZIONE SCHERMO 

7907 REM******<hht*********************** 
7909 REM 
7911 REM SCOPO: 

7913 REM QUESTA SU8ROUTINE PULISCE LO 
7915 REM SCHERMO. PRESENTA IL TITOLO 
7917 REM DEL PROGRAMMA. PREPARA ALCUNE 
7919 REM VARIABILI USATE DA ALTRE 

7921 REM S0BR0UTINES. 

7923 REM 

7925 REM PRIMA DEL CGOSUB 80000: 

7927 REM PR$ > DEVE CONTENERE IL T IT0L0 
7929 REM 
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7931 REM DOPO IL C60SUB 80003: 

7933 REM CO < DEFINISCE IL COLORE DEL 
7935 REM BORDO 

7937 REM CI < DEFINISCE IL COLORE DEL 
7939 REM FONDO TITOLO 

7941 REM C2 < DEFINISCE IL COLORE DEL 
7943 REM CARATTERE TITOLO 

7945 SEM C3 < DEFINISCE IL COLORE 
7947 REM DEL FONDO TESTO 

7949 REM C4 < DEFINISCE IL COLORE DEL 
7951 REM CARATTERE TESTO 

7953 REM C5 < DEFINISCE IL COLORE DEL 
7955 REM FONDO DOMANDE 

7957 REM C6 < DEFINISCE IL COLORE DEL 
7959 REM CARATTERE DOMANDE 

7961 REM S$ <E'UNA STRINGA DI 40 SPAZI 
7963 REM MV < CONTIENE L ; INDIRIZZO 
7965 REM DELLA MEMORIA VIDEO 

7967 REM MC < CONTIENE L'INDIRIZZO 
7969 REM DELLA MEMORIA COLORE 

7971 REM 

7989 REMw***+*«****#***^«HHHt******** 

7999 : 

8000 PRINT "CSH1FT3+CH0ME3":C0=7 
8002 CI=6:C2=l:C3=7:C4=0 

8004 C5=4:C6=0:MV=1Q24:MC=55296 

8010 PONE 53265,PEEK<53265) OR 64 

8014 POKE 53280,CO:PQKE 53281,03 

8020 S$="":FOfi 1=0 TO 39:S$=S$+‘‘ ":NEXT 

8024 POKE 53282,CI :POKE 53283,C5 

8030 FOR 1=0 TO 39:POKE MC+I,C2 

8034 POKE MV+I,96:NEXT 

8040 FOR 1=880 TO 999:POKE MC+I,C6 

8044 POKE MV+I,160:NEXT 

8050 FOR K=1 TO LEN(PR$) 

8052 A$=MID$(PR$,K,1) 

8054 A=ASC(A$):IF A<64 THEN A=A+6A 
8060 POKE (MV+K),A:NEXT 
8064 POKE 646,C4 
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8066 PRINT “CH0ME1C2 CRSRt]":RETURN 
8077 s 


SUBROUTINE 2 

POSIZIONAMENTO CURSORE 

Spesso è necessario stampare su una certa riga del video, 
ma nel Basic del C-64 non esistono istruzioni adatte. Il proble¬ 
ma è risolto da questa subroutine: basta dare come valore a 
RC il numero di riga su cui si vuole posizionare il cursore e 
usare /GOSUB 8100/: il cursore sarà posizionato all’inizio della 
riga voluta. Ricordiamo che la riga 0 è quella del titolo e che le 
righe 22, 23 e 24 sono riservate ai messaggi ed alle domande. 


8061 REM**********SUBR0UTII€ #2********* 
8063 REM POSIZIONAMENTO CURSORE 
8065 REM*******hht********************** 
8067 REM 
8069 REM 
8071 REM 
8073 REM 
8075 REM 
8077 REM 
8079 REM 
8081 REM 
8083 REM 
8085 REM 
8087 REM 
8089 REM 
8091 REM 
8093 REM 

8097 REM********-»********************** 

8099 : 

8100 P0KE 763,Q:P0KE 761,RC:P0KE 762,0 
8110 SYS65520:RETURN 

8197 : 

8199 REM******************************** 


SCOPO: 

QUESTA SUBROUTINE POSIZIONA IL 
CURSORE ALL'INIZIO DELLA RIGA 
VOLUTA 

PRIMA DEL CGOSUB 8100] 

RC > BEVE CONTENERE IL NUMERO 
DI RIGA SULLA QUALE SI VUOLE 
IL CURSORE (DA 0 A 24) 

DOPO IL CG0SUB 8100] 

NESSUNA VARIABILE E' ALTERATA 
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SUBROUTINE 3 

PRESENTAZIONE MESSAGGI 

Le ultime tre righe deilo schermo sono riservate a messaggi 
e domande; questa subroutine si occupa della loro presenta¬ 
zione. Come prima cosa le ultime tre righe sono pulite e colo¬ 
rate col colore C5, ed in fondo alla zona testo viene stampata 
una serie di sei separatori; nelle tre righe saranno presentati i 
messaggi (o la domanda) preparati nelle stringhe M1$, M2$, 
M3$. Se il messaggio è corto non è necessario usare tutte e 
tre le righe: se ne può anche usare una sola (apparirà solo 
M3$), oppure due (appariranno M1$ e, subito sotto, M3$). Le 
stringhe non usate devono essere nulle, cioè non devono con¬ 
tenere alcun carattere. 

Il cursore è posizionato subito dopo M3$, il colore è quello 
della zona domande: eventuali risposte possono essere scritte 
direttamente. Questa subroutine è usata da molte delle su- 
broutines seguenti, che la sfruttano per compiti più specializ¬ 
zati. 


8545 

8547 

854? 

8551 

8553 

8555 

8557 

3559 

8561 

8563 

8565 

8567 

8569 

8571 

8573 

8575 

8577 

8579 

8581 

8583 


REM**********SUBROUTINE #3*****-»*** 
REM PRESENTAZIONE MESSAGGI 

**************** 

REM 

REM SCOPO: 

REM QUESTA SUBROUTINE PRESENTA DEI 


REM 

MESSAGGI NELLA ZONA DOMANDE 

REM 


DEL VIDEO 

REM 



REM PRIMA DEL CGOSUB 86001: 

REM 

PER AVERE TRE MESSAGGI 

REM 

MI* > 

PRIMO MESSAGGIO 

REM 

M2$ > 

SECONDO MESSAGGIO 

REM 

M3$ > 

TERZO MESSAGGIO 

REM 

PER AVERE 

DUE MESSAGGI 

REM 

MI* > 

PRIMO MESSAGGIO 

REM 

M3$ > 

SECONDO MESSAGGIO 

REM 

PER AVERE 

UN MESSAGGIO 

REM 

H3* > 

PRIMO MESSAGGIO 

REM 

M1*;M2* j 

> SE NON USATI ="" 
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8585 REM 

8587 REM DOPO IL CGOSUB 88001: 

8589 REM RC < CONTIENE IL VALORE 21 
8591 REM IL CURSORE E' POSIZIONATO DOPO 
8593 REM M3$; IL COLORE E' C4<DOMANDE) 
8595 REM 

8597 IS^hhhhbhhiuuiiiiii ih iihww 
8599 : 

8800 POR K=880 TO 999 

8810 POKE CMV+K),16G:NEXT 

8620 RC=21:G0SUB 8100:PRINT "**+****•> 

8630 POKE 646,Có:POKE 198,0 

8840 IF Hli="" THEN .5870 

8650 PRINT "HCTRLMRVS 0N1 ";M1$ 

8854 IF H2$="" THEN 8870 

8660 PRINT "CCTRL1+LRVS 0N1 ";M2$ 

8670 PRINT "CCTRL1+CRVS 0N1 ";M3$; 

8680 PRINT "CCTRL1+CRVS OFF!";: RETURN 
8695 : 

8697 IEM******************-»************* 


SUBROUTINE 4 

ATTESA DI TASTO PREMUTO 

Questa subroutine usa la precedente per far comparire la 
domanda, dopo di che ripristina il colore testo e si mette in at¬ 
tesa che un tasto sia premuto. Può essere usata tutte le volte 
in cui la risposta non deve apparire dopo le domande e quan¬ 
do basta sapere quale tasto è stato premuto: la stringa A$ 
contiene un solo carattere che corrisponde al tasto azionato. 

Questa è la subroutine più importante per le comunicazioni 
tra il programma e chi lo usa: il programma può valutare il ta¬ 
sto azionato e proseguire in modi differenti. 

8253 REM**********SiJBROUTINE #4********* 

8255 REM ATTESA DI TASTO PREMUTO 

8257 

8259 REM 

8261 REM SCOPO: 
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E: 

--- 

--- 

--- 

. 

--- 

subroutines r : 

--- 

--- 

--- 

--- 

--- 

.0 


8263 REM QUESTA SUBROUTINE PRESENTA DEI 
8265 REM MESSAGGI (USA SUBI3), POI 
3267 REM RIPRISTINA IL COLORE TESTO E 
8269 REM ATTENDE CHE SIA PREMUTO UN 
8271 REM TASTO. 

8273 REM 

8275 REM PRIMA DEL CGOSUB 83001; 

8277 REM Mi$;M2t;M3$ > MESSAGGI 

827? REM COME PER SUB#3 

8231 REM 

8283 REM DOPO IL EGOSUB 83001: 

8285 REM A$ < CONTIENE IL CARATTERE 
8287 REM DEL TASTO PREMUTO 

8289 REM RC < CONTIENE IL VALORE 21 
8291 REM IL CURSORE E' POSIZIONATO DOPO 
8293 REM M3$; IL COLORE E' C4 (TESTO) 
8295 REM 

8297 REM^' HHH HH H HHHHHHHHHHHHHHHHHHHHHHHtf 

8299 : 

8300 GOSUe 8600:P0KE 646,C4 
8310 GET A*:IF A$=‘ f " THEN 8310 
8320 RETURN 

8397 : 

8399 REM******^*iHr********«W**»**+*** 


SUBROUTINE 5 

PAUSA 

Questa è la prima subroutine di comunicazione specializza¬ 
ta: si usa quando il programma ha terminato una fase ed at¬ 
tende la via libera da parte di chi lo usa per continuare. 

Permette quindi di avere tutto il tempo necessario per osser¬ 
vare i risultati ed i dati sul video. 

Per semplificarne l’uso, due messaggi sono fissi: M1$ è 
uguale a "SE VUOI", e M3$ è uguale a “PREMI UN TASTO”: 
basta quindi specificare solo M2$ (per esempio con “CONTI¬ 
NUARE”, oppure “TERMINARE”, o altre frasi simili). 

Quando si usa questa subroutine in genere non si controlla 
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quale tasto sia stato premuto: il programma continua nell’unico 
modo possibile a quel punto, dopo aver effettuato una PAU¬ 
SA... 


8147 REM**********SUBROUTINE #5#*»***** 
8149 REM PAUSA 

8151 

8153 REM 
8155 REM SCOPO: 

8157 REM QUESTA SUBROUTINE PRESENTA UN 
8159 REM MESSAGGIO E CREA UNA PAUSA 
8161 REM NELL'ESECUZIONE DEL PROGRAMMA 
8163 REM PRINCIPALE FINO A QUANDO NON 
8165 REM SI PREME UN TASTO (USA SUB#4> 
8167 REM 

8169 REM PRIMA DI CGOSUB 82003: 

8171 REM M2$ > PARTE CENTRALE DEL 
8173 REM MESSAGGIO (Ml$ E M3$ SONO 
8175 REM FISSATI DALLA SUB.) 

8177 REM 

8179 REM DOPO IL CGOSUB 82003: 

8181 REM A* < CONTIENE IL CARATTERE 

8183 REM DEL TASTO PREMUTO 

8185 REM RC < CONTIENE IL VALORE 21 

8187 REM Ml$ < CONTIENE="SE VUOI" 
8189 REM M3$ <CONTIENE="PREMI UN TASTO" 
8191 REM IL CURSORE E' POSIZIONATO DOPO 
8193 REM M3$: IL COLORE E' C4 (TESTO) 
8195 REM 

8197 REM******************************** 

8199 : 

8200 M1Ì="SE VU0I":M3$="PREM1 UN TASTO" 
8297 : 

8299 REM******************************** 
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SUBROUTINE 6 

DOMANDA SÌ/NO 

Questa è una subroutine di comunicazione più complessa 
della precedente, nella quale infatti si tiene conto della rispo¬ 
sta, che però può essere solo di due tipi: o sì (tasto /S/) oppu¬ 
re no (tasto /N/). Come per le subroutines precedenti, sono 
presentati i tre messaggi e si attende l’azionamento di un ta¬ 
sto: se però questo è diverso da /SI e da /N/, vengono ripre¬ 
sentate le tre stringhe che formano la domanda. Dopo l’uso 
della subroutine la stringa Rl$ conterrà un solo carattere, la ri¬ 
sposta "S" oppure "N”. 

Questa subroutine è utile quando un programma può conti¬ 
nuare in due modi diversi: usandola in quel punto si chiede in 
pratica a chi usa il programma quale alternativa vuole, ed esa¬ 
minando Rl$ il programma continuerà in un modo o nell’altro. 

È opportuno che in M3$ sia indicato il tipo di risposta attesa, 
per esempio con “SI o NO” oppure brevemente con “(S/N)’’. 


8353 

REW 

8355 

REM 

8357 

REMI 

8359 

REM 

8361 

REM 

8363 

REM 

8365 

REM 

8367 

REM 

8369 

REM 

8371 

REM 

8373 

REM 

8375 

REM 

8377 

REM 

8379 

REM 

8381 

REM 

8383 

REM 

8385 

REM 

8387 

REM 

8389 

REM 

8391 

REM 

8393 

REM 


DOMANDA SI/NO 


QUESTA SUBROUTINE PRESENTA DEI 
MESSAGGI (USA SUBfM») E ACCETTA 
SOLO "S" 0 "N" COME TASTO 
DI RISPOSTA 


Ml$;M2Ì;M3t 


MESSAGGI 
COME PER SUB#3 


Rl$ < CONTIENE LA RISPOSTA "S" 
OPPURE "N" 

Ai < UGALE A Rii 
RC < ASSUME IL VALORE 21 
IL CURSORE E' POSIZIONATO DOPO 
M3i; IL COLORE E' C4 (TESTO) 
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8395 REM 

8397 iiE11WH« WHHH WWWHWW 

8399 : 

8400 GOSL© 8300:RI$=A$ 

8410 IF RI$="S" OR RI$="N" TWEN RETURN 
8420 GOTO 8400 
8497 : 

8499 REfl*M-»+t*+********+*****t********* 


SUBROUTINE 7 

INGRESSO DATI NUMERICI 

Spessissimo occorre che chi usa un programma introduca 
dei numeri che saranno poi utilizzati dal programma: di questo 
si occupa la SUBROUTINE 7, che è piuttosto complessa. 

Vediamo come funziona: per prima cosa presenta i soliti tre 
messaggi che questa volta chiederanno di introdurre un valore 
numerico, poi si mette in attesa di una risposta. La risposta 
apparirà nella zona domande, dopo M3$, così come è battuta, 
fino a quando non viene usato il tasto /RETURN/, che termina 
la risposta. La stringa è tradotta in numero, e questo è stampa¬ 
to con M3$ nella parte testo dello schermo, in modo che chi 
usa il programma può ricordarsi quali numeri ha già immesso, 
e controllare se ha fatto qualche errore. 

I numeri immessi sono resi in un vettore, cioè sono attribuiti 
come valore ad un insieme di variabili aventi tutte lo stesso 
nome (viene usato VR), e distinte tra loro da un numero, o indi¬ 
ce (I). Occorrerà quindi preoccuparsi che (I) abbia il valore 
desiderato prima di usare questa subroutine. 

Questa subroutine incrementa da sola (I): se quindi in un 
programma è usata più volte di seguito, per introdurre variabili 
diverse, basta porre (I) = 0 prima di usarla per la prima volta: 
il primo numero sarà così attribuito a VR(0), il secondo a 
VR(1), il terzo a VR(2), e così via. 

Se si prevedono più di dieci valori occorre una istruzione 
tipo /DIM VR (max)/ per dimensionare il vettore, dove (max) è il 
numero massimo di valori previsto. Dall'indice dipende anche 
su che riga dello schermo viene scritta la domanda M3$ segui¬ 
ta dalla risposta: si usano le righe da 2 a 13 per presentare i 
primi 12 numeri, poi il tredicesimo è presentato nuovamente 
nella riga 2 (cancellando quello che già c'è), e così via, in 
modo da poter vedere sempre gli ultimi 12 numeri: questo è 
molto utile quando bisogna introdurre molti numeri di seguito. 

La SUBROUTINE 7 fa ancora un'altra cosa: se infatti chi usa 
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il programma non introduce un numero, ma batte subito /RE¬ 
TURN/, non viene stampato nulla nella parte testo, a VR(I) vie¬ 
ne assegnato il valore 0, e la stringa Rl$, che normalmente 
vale "S", diventa “N". Questo è comodo quando non si sa a 
priori quanti sono i numeri da inserire: in questo modo chi usa 
il programma può segnalare di aver terminato, come se rispon¬ 
desse ad un’implicita domanda di tipo SI/NO. 


8701 REN««hhhhh»SUBROUTINE #7********* 
8703 REM INGRESSO DATI NUMERICI 

8707 REM 
8709 REM SCOPO: 

8711 REM QUESTA SUBR0UTINE PRESENTA DEI 
8713 REM MESSAGGI (USA SUB*3) PER 

8715 REM CHIEDERE DEI DATI NUMERICI. 

8717 REM SE SI BATTONO DELLE CIFRE E 
8719 REM [RETURN] IL NUMERO E' IN VR(I> 
8721 REM ED E' STAMPATO SULLO SCHERMO 
8723 REM INSIEME A M3$; INOLTRE-1 E ! 
8725 REM INCREMENTATO E RI* VALE !, S‘‘. 

8727 REM SE INVECE SI BATTE SOLO 

8729 REM [RETURN], ALLORA VR(I)=0 

8731 REM NON STAMPA NULLA SULLO SCHERMO 
8733 REM MA INCREMENTA I E RI$=“N”. 
8735 REM 

8737 REM PRIMA DI CGOSUB 88003: 

8739 REM M1$;M2$;M3$ > MESSAGGI COME 
8741 REM 
8743 REM 
8745 REM 
8747 REM I 
8749 REM 
8751 REM 
8753 REM 
8755 REM 
6757 REM 
875? REM DOPO IL CGOSUB 68003: 

8761 REM RI* < ="S" OPPURE "N" 

8763 REM VRCIK CONTIENE IL DATO NUOVO 


PER SUB#3: M3$ E' STAMPATO 
ANCHE NELLA PARTE SUPERIORE 
CON IL NUMERO INTRODOTTO 
/•INDICA QUALE DATO CHIEDE, 
LA PRIMA VOLTA PORRE 1=0. 
SE SI PREVEDONO PIU' DI 10 
DATI OCCORRE UN'ISTRUZIONE 
TIPO "DIN VR(MASSIMO)" 
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8765 REM I < INCREMENTATO 01 1 

8767 REM STI < CONTIENE LA STRINGA COME 
8769 REM E' STATA BATTUTA 

8771 (SM RC < IL NUMERO DELLA RIGA 
8773 REM DOVE HA SCRITTO LA RISPOSTA 
8775 REM EDA 3 A 131 

8777 REM IL CURSORE E' POSIZIONATO DUE 
8779 REM RIGHE PIU' IN BASSO 

8781 REM 

8791 REM******************************** 
8793 REM**********SUBROUTINE 17********* 
3797 REM******************************** 

8799 : 

8800 GGSUB 8890:IF RI*="N" THEN RETURN 
8810 PRINT VR(1-1):RETURN 

8890 GOSUB S60D:ST$= li ":RI$="N" 

8900 G£T Ai:IF A$=CHR*(13) THEN 8960 
8910 IF At=CHRÌ(20) THEN A*=A$+"CSHIFT3+ 
CCRSR*] [SHIFT]+CCRSR*]":GOTO 5940 
8920 IF A$<“ " THEN 8900 
8930 ST$=ST$+A$:GOTO 8950 
8940 ST$=MI0i(ST$,1,ABS(LEN(ST$)-1)) 

8950 PRINT "CCTRL3+CRVS ONT‘;A$; 

8954 PRINT "CCTRLD+CRVS OFFO";:GOTO 8900 
8960 RC=I-(INT(I/I2)*12)+3:GOSUB 8100 
8970 POKE 646,C4:VR(I)=VAL(ST$):I=I+1 
8980 PRINT S$;"CSHIFT]+CCRSRn 
8984 IF ST$='"‘ THEN RETURN 
8990 PRINT M3<*. : Rl*= "S":RETURN 
8997 : 

8999 REM******************************** 
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SUBROUTINE 8 % I 


INGRESSO STRINGA 

A volte è necessario che chi usa il programma introduca una 
stringa di caratteri anziché un numero: di questo si occupa la 
SUBROUTINE 8. 

Sostanzialmente si comporta come la subroutine preceden¬ 
te, con alcune differenze: intanto nella zona testo apparirà la 
stringa M3$ seguita dalla risposta così come è stata scritta (e 
non tradotta in numero), poi la stringa di risposta che ci inte¬ 
ressa sarà ST$. 

Anche in questo caso però la risposta è interpretata come 
un numero, anche se in genere non lo è, per cui il valore otte¬ 
nuto sarà spesso 0, e tale valore verrà anche ora attribuito alla 
variabile VR(I). 

Anche con questa subroutine occorre fare attenzione al valo¬ 
re di I: indica quale variabile del vettore sarà usata e su quale 
riga sarà stampata la risposta. 

Come per la subroutine 7, anche la SUBROUTINE 8 rende la 
variabile Rl$ uguale a "N" se come risposta si è battuto solo / 
RETURN/, e uguale a “S" negli altri casi. 


8927 R£M+***-h-**#*SUBROUTINE #8********* 
8929 REM INGRESSO STRINGA 

8931 REM***************************-»**** 
8933 REM 
8935 REM SCOPO: 

8937 REM QUESTA SUBROUTINE PRESENTA DEI 
8939 REM MESSAGGI (USA SUB#3) PER 

8941 REM CHIEDERE UNA STRINGA. 

8943 REM LA STRINGA E' CONVERTITA 

8945 REM IN VALORE NUMERICO IN VR(I) 
8947 REM ED E' STAMPATO SULLO SCHERMO 
8949 REM. INSIEME A M3$; INOLTRE I E' 
8951 REM INCREMENTATO E Rii VALE "S". 
8953 REM SE INVECE SI BATTE SOLO 

8955 REM [RETURNj, ALLORA VR(1)=0, 
3957 REM STAMPA UNA RIGA BIANCA, 

8959 REM INCREMENTA I E RIÌ="N". 

8981 REM 

8983 REM PRIMA 01 EGOSUB 88003: 
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5965 

8967 

8969 

8971 

8973 

8975 

8977 

8979 

8981 

8983 

8985 

8987 

8989 

8991 

8993 

8995 

8997 

8999 

9000 
9010 
9087 
9089 


REM M1$;M2$;M3* > MESSAGGI COME 
REM PER SUB#3; ME$ E' STAMPATO 
REM ANCHE NELLA PARTE SUPERIORE 
REM CON LA STRINGA INTRODOTTA 
REM I > INDICA QUALE ORCI) USARE 
REM 

REM DOPO IL C60SL® 90000 
REM RI$ < ="S ,! OPPURE "N" 

REM VR(I)< CONTIENE IL VALORE 
REM NUMERICO IELLA STRINGA 
REM I < INCREMENTATO DI 1 
REM STI < LA STRINGA BATTUTA 
REM RC < LA RIGA DELLO SCHERMO 
REM CON LA RISPOSTA (DA 3 A 13) 
REM IL CURSORE E' POSIZIONATO DUE 
REM RIGHE PIU' IN BASSO 
REM************ #****♦**#•»*•»**#***** 


GOSUB 8890:IF RI$=”N" THEN RETURN 
PRINT STI:RETURN 

REM*«******##tHW#+******#****«*** 


SUBROUTINE 9 

SCELTA PROGRAMMI 

Quando un programma può continuare in due modi diversi, 
possiamo usare la SUB DOMANDA SÌ/NO, che abbiamo già vi¬ 
sto, e, a seconda della risposta, il programma continuerà in un 
modo o nell’altro. Quando però ci sono più di due alternative, 
useremo questa subroutine che permette di scegliere fino a 
nove possibilità. Questa situazione si presenta spesso all’inizio 
di programmi complessi, quando occorre scegliere tra varie 
parti del programma che eseguono compiti diversi. 

Usando questa subroutine, appaiono nella zona testo i titoli 
a partire dalla riga 3 numerati da 1 in poi ed appare la doman¬ 
da (nella zona domande) "SCEGLI CHE COSA” “VUOI FARE". 

La risposta deve essere una cifra, compresa tra quelle ap¬ 
parse: se il tasto premuto non è un numero oppure è maggiore 
di quelli possibili la domanda è ripresentata. 
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Come detto i titoli al massimo possono essere nove, e sono 
contenuti in un vettore di stringhe, vale a dire in variabili tipo 
stringa tutte con lo stesso nome (PN$) e distinte da un nume¬ 
ro: il primo titolo sarà in PN$(1), il secondo in PN$(2) e così 
via; inoltre la variabile PN dovrà indicare il numero di titoli usa¬ 
ti. Per esempio, se ci sono tre possibilità dovrà essere /PN = 
3/, e /PN$(1) = "primo titolo": PN$(2) = "secondo titolo”: 
PN${3) = “terzo titolo”/. 

La risposta deve essere uno dei tre testi 1, 2 o 3; nessun al¬ 
tro tasto è accettato. Il valore corrispondente al tasto premuto 
si ritrova nella variabile PS, nel nostro esempio sarà 1, o 2 o 3 
e deve essere usato per continuare nel modo voluto, con una 
istruzione BASIC del tipo /ON PS GOSUB.../ ovvero /ON PS 
GOTO.../. 


9339 REM-hhhhuhh^SUBROUT INE #9«hhhhhhhw 
9341 REM SCELTA PROGRAMMI 

9343 REM************-»******************* 
9345 REM 
9347 REM SCOPO: 

9349 REM QUESTA SUBROUTINE STAMPA SULLO 
9351 REM SCHERMO DEI TITOLI (MAX. 9) 
9353 REM CONTRADDISTINTI DA UN NUMERO 
9355 REM E CHIEDE DI SCEGLIERE. 

9357 REM IL NUMERO SCELTO E' IN PS 
9359 REM 

9361 REM PRIMA DEL [GOSUB 84000: 


9363 

REM 

9365 

REM 

9367 

REM 

9369 

REM 

9371 

REM 

9373 

REM 

9375 

REM 

9377 

REM 

9379 

REM 

9361 

REM 

9383 

REM 

9385 

REM 

9387 

REM 

9389 

REM 


PN > NUMERO DELLE SCELTE 

MAX 9 

PN$(1)...PN$(PN) > TITOLI, 
MAX 16 CARATTERI 
(SE 17 CHR I TITOLI 
SONO SPAZIATI DI UNA RIGA) 

DOPO IL [GOSUB 94000: 
m < VALE:"SCEGLI CHE COSA" 
M2$ < VALE:"" 

M3$ < VALE:"VUOI FARE >" 

RC < ASSUME IL VALORE 3 

PS < E' IL NUMERO DEL 

PROGRAMMA SCELTO 
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9391 REM IL CURSORE E' POSIZIONATO DOPO 
9393 REM M3$; IL COLORE E' C4 (TESTO) 
9395 REM 

9397 REMJHHHHHHHHt*********************** 
9399 : 

940) RC=3:60SU8 8100 

9410 FOR 1=1 TO PN 

9420 PRINT I" ";I; ,, = ";PN$(I):NEXT 

9430 Mlt="SCEGLI CHE C0SA":M2t=‘ ,n 

9440 H3*=“VU0I FARE >":GOSUB 8300 

9450 PS=ASC(A$)-48 

9460 IF PS<1 OR PS>PN THEN 9440 

9470 RETURN 

9497 : 

9499 REM******************************** 


SUBROUTINE 10 

MODIFICA PROGRAMMI 

Nei programmi matematici di questo libro capita spesso di 
dover introdurre un'espressione matematica da calcolare, e 
questo si può fare bene modificando una o più righe del pro¬ 
gramma BASIC, usando questa subroutine 

Questa in effetti non è una subroutine, per cui il suo uso ri¬ 
chiede più attenzione, anche se è abbastanza semplice. 

Innanzitutto occorre preparare due stringhe P1$ e P2$, che 
contengono le due nuove righe BASIC così come le vogliamo, 
complete del numero di riga, ed una terza stringa P3$ che 
contiene un comando BASIC per riprendere un programma dal 
punto in cui vogliamo, tipo /RUN 2000/ oppure /GOTO 100/. 

Poi si può usare la SUBROUTINE 10 andandoci con un /GO- 
SUB 9200/ o anche un /GOTO 9200/. 

Prestiamo attenzione, perché dopo queste operazioni si è 
perso quello che c’era sullo schermo, ed anche alcuni valori 
delle variabili: è opportuno quindi che la riga indicata in P3$ 
sia una riga iniziale di un programma, perché in genere si co¬ 
mincia proprio pulendo lo schermo. 

9131 SEM*********SUBROUTINE #10****#*+** 

9133 REM MODIFICA PROGRAMMI 
9135 REM******************************** 
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9137 REM 
9139 REM SCOPO: 

9141 REM QUESTA SUBROUTINE PERMETTE DI 
9143 REM AGGIUNSERE 0 MODIFICARE DUE 

9145 REM RIGHE DEL PROGRAMMA IN 

9147 REM MEMORIA, 

9149 REM 

9151 REM ATTENZIONE: 

9153 REM NON E' UNA VERA SUBROUTINE: 
9155 REM L'USO DI QUESTA SUBROUTINE FA 
9-157 REM PERDERE TUTTE LE VARIABILI E 
9159 REM NON TORNA AL PROGRAMMA 

9161 REM CHIAMANTE, MA RIPRENDE LA 
9163 REM ESECUZIONE DA UNA RIGA 

9165 REM INDICATA IN P3$ 

9167 REM 

9169 REM PRIMA DI CGOSUB 92001: 

9171 REM PU > PRIMA RIGA DA AGGIUNGERE 
9173 REM AL PROGRAMMA, DEVE COMINCIARE 
9175 REM CON UN NUMERO 

9177 REM P2$ > SECONDA RIGA (COME Pl$) 
9179 REM P3$ > TERZA RIGA DI ESECUZIONE 
9181 REM IMMEDIATA, TIPO "RUN 1000", 
9183 REM CHE RILANCIA IL PROGRAMMA 
9185 REM 

9187 REM DOPO IL CGOSUB 92001: 

9-189 REM TUTTE LE VARIABILI VALGONO 0, 
9191 REM Pii E P2$ SONO AGGIUNTE AL 
9193 REM PROGRAMMA, P3* E' ESEGUITA. 
9-195 REM LO SCHERMO DEVE ESSERE PULITO 
9197 REM******************************** 

9199 : 

9200 PRINT ''CSHIFT1+CH0ME1C2 CRSRT1"; 
9204 PRINT PI«:PRINT P2$ 

9210 PRINT P3$;"CH0ME]"; 

9220 POKE 198,3:P0KE 631,13:POKE 632,13 
923D POKE 633,13:END 
9297 : 

9299 REM******************************** 
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SUBROUTINE 11 

ALTA RISOLUZIONE 

Questa è la prima di cinque subroutines specializzate, che 
gestiscono i disegni ad alta risoluzione ( 320 x 200 punti). Il 
suo scopo è quello di preparare la pagina ad alta risoluzione, 
presentando il titolo del programma ed un messaggio: possia¬ 
mo uscire dalla pagina grafica premendo il tasto /CI. 

La gestione della grafica sul C-64 non è semplice in BASIC. 
Noi abbiamo cercato un compromesso tra velocità di esecu¬ 
zione e semplicità dei programmi, usando anche una piccola 
subroutine in linguaggio macchina, preparata anch’essa dalla 
SUBROUTINE 11. 

Potremo usare queste subroutines grafiche anche per creare 
i nostri disegni... 


9703 

97D5 

9707 

9709 

9711 

9713 

9715 

9717 

9719 

9721 

9723 

97X 

9727 

9729 

9731 

9733 

9735 

9737 

9739 

9741 

9743 

9745 

9747 

9749 


REM***««SUB ROUTINE IH hhhhhhhhh » 
REM ALTA RISOLUZIONE 

REIIWWHWWIHHHHrt Ht H W H» 


REM 



REM 

SCOPO: 


REM 



REM 

OUESTA SUBROUTINE INIZIALIZZA 

REM 

LA PAGINA GRAFICA,PRESENTANDO 

REM 

IL TITOLO DEL PROGRAMMA ED UN 

REM 


MESSAGGIO FISSO. 

REM 



REM 

PRIMA Da CG0SUB 98003: 

REM 

PR$ > DEVE CONTENERE IL TITOLO 

REM 



REM 

DOPO IL 

CG0SUB 9800T: 

REM 

CO < ? 

USATA PER 1 CALCOLI 

REM 


DALLE SUB MI,#12,#14 

REM 

CI < ? 

USATA PER I CALCOLI 

REM 


DALLE SUe M1,M2,#14 

REM 

C2 < ? 

USATA PER I CALCOLI 

REM 


DALLE SUB M1,#12,M4 

REM 

C3 < ? 

USATA PER I CALCOLI 

REM 


DALLE SUB M2,M4 

REM 

C4 < ? 

USATA PER I CALCOLI 
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9751 REM DALLE SUB *13,114 

9753 REM C5 < ? USATA PER I CALCOLI 
9755 REM DALLA SUB *13 

9757 REM C6 < ? USATA PER I CALCOLI 
9759 REM DALLA SUB *13 

9761 SEM M3$ < CONTIENE IL MESSAGGIO: 
9763 REM “ C = PAGINA NUMERICA" 

9765 REM XH < RIGA PER SCRIVERE IN 
9767 REM ALTA RISOLUZIONE 

9769 REM YH <. COLOW4A PER SCRIVERE IN 
9771 REM ALTA RISOLUZIONE. 

9773 REM RIMANO IL CARATTERE 

9775 SEM DOPO M3Ì. 

9777 REM 

9799 : 

9800 IF PEEKCS81)=169 THEN 9814 
9804 READ M3$:IF M3$<>"3" THEN 9804 
9808 POKE 52,32:POKE 56,32 

9810 FOR C5=681 TO 925:READ C6 

9812 POKE C5,C6:NEXT 

9814 PRINT "CSHIFTT+CH0ME3" 

9816 SYS881:C5=53265 
9820 POKE C5,PEEK(C5) AND 191 
9824 POKE 53272,PEEK(53272) OR 8 
9830 POKE C5,PEEK(C5) OR 32 
9834 M3$=PW:XH=1:YH=0:GOSUB 9500 
9840 M3$=" C = PAGINA NUMERICA” 

9844 YH=24:GOSUB 9500:RETURN 
9850 DATA 3,169,32,141,126,3,160 
9854 DATA 32,162,0,169,0,157 
9860 DATA 0,64,202,208,250,238 
9864 DATA 126,3,136,208,240,234 
9870 DATA 169,25,162,40,157,255 
9874 DATA 3,202,208,250,169,100 
9880 DATA 162,120,157,111,7,202 
9384 DATA 208,250,96 
9889 : 

9899 REM«HHHHHtt****WW*MW™*W**«** 
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SUBROUTINE 12 

PUNTO (XX,YY) 

Questa SUBROUTINE accende un punto sullo schermo ad 
alta risoluzione: è utile per disegnare figure irregolari, quali 
grafici o funzioni. 

Le coordinate del punto sono indicate da due variabili, XX, 
orizzontale, che può variare tra 0 e 319, e YY, verticale, che 
può variare tra 0 e 199. 

Il punto di coordinate 0,0 è l’angolo in alto a sinistra dello 
schermo. 


9601 REM*******SU8R0UTINE #12*********** 
9603 REM PUNTO (XX,YY) 

9605 REM******************************** 


9607 

REM 




9609 

REM 

SCOPO: 



9611 

REM 

QUESTA SUBROUTINE ACCENDE UN 

9613 

REM 


PUNTO IN ALTA RISOLUZIONE 

9615 

REM 



(SU FONDO NERO). 

9617 

REM 




9619 

REM 

PRIMA DEL CG0SUB 97001: 

9621 

REM 

XX > 


DEVE CONTENERE LA 

9623 

REM 



COORDINATA ORIZZONTALE 

9625 

REM 



DEL PUNTO (0-319) 

9627 

REM 

YY > 


DEVE CONTENERE LA 

9629 

REM 



COORDINATA VERTICALE 

9631 

REM 



DEL PUNTO (0-199). 

9633 

REM 




9635 

REM 

DOPO IL 

C50SUB 97003: 

9637 

REM 

CO < 

? 

USATE 

9639 

REM 

CI < 

? 

PER 

9641 

REM 

C2 < 

? 

CALCOLI 

9643 

REM 

C3 < 

? 

INTERNI. 

9645 

REM 





9689 REM******************************** 

9699 : 

9700 C0=INT(XX/8):C1=INT(YY/8): 

9710 C3=8192+C1*320+8*00+(YY ANO 7) 

9714 C2=7—(XX ANO 7) 
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9720 POKE C3,PEEK(C3> OR (2TC2):RETURN 
9789 : 

9799 


SUBROUTINE 13 

RIGA (XX,YY,X1,Y1) 

Questa SUBROUTINE è ancora più utile della precedente: 
permette, infatti, di tracciare righe con qualunque inclinazione, 
di qualunque lunghezza. Ha un solo difetto: non è molto velo¬ 
ce. 

Le due variabili XX, YY si riferiscono al punto di partenza 
della riga, mentre XI e Y1 si riferiscono all'altro estremo. Atten¬ 
zione però: XI e Y1 sono relativi al punto di partenza, e non 
assoluti. Possono essere quindi positivi o negativi, indicando 
di quanto ci si deve spostare per raggiungere, dalla partenza, 
il punto di arrivo. 

Per semplificarne l’uso, inoltre, questa subroutine modifica 
XX e YY, che assumono i valori del punto di arrivo. Un succes¬ 
sivo uso di questa subroutine traccerà una riga che inizia dove 
la precedente finisce. 


9501 REM«hhhh«SUBROUTINE #13*****«***«* 
9503 REM RIGA (XX,YY;X1,Y1) 

9505 REM*****-*************************** 

9507 REM 

9509 REM SCOPO: 

9511 REM QUESTA SUBROUTINE TRACCIA UNA 
9513 REM RI6A IN ALTA RISOLUZIONE 

9515 REM (USA SUB #12). 

9517 REM 

9519 REM PRIMA DEL CGOSUB 96001: 

9521 REM XX,YY > COORDINATE DELL'INIZIO 

9523 REM DELLA RIGA 

9525 REM XI,Y1 > SPOSTAMENTO NELLE DUE 

9527 REM DIREZIONI. 

9529 REM 

9531 REM DOPO IL CGOSUB 96001: 

9533 REM XX,YY < CONTENGONO ORA LE 
9535 REM COORDINATE DI FINE RIGA 
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9537 REM 

C4 < ? 

USATE PER 

9539 REM 

C5 < ? 

CALCOLI 

9541 REM 

C6 < ? 

INTERNI. 

9543 REM 




9589 REM***********+****+****+****++**** 

9599 : 

9600 C5=ABS(X1):C6=A8S(Y1) 

9610 IF C6>C5 THEN 966Ci 
9620 C4=(C6/C5)* SGN(Yl) 

9630 FOR XX=XX IO CXX+X.l) STEP SGNCXl) 
9640 GOSUB 9700 :YY=YY+C4:NEXT 
9650 RETURN 

9660 C4=(C5/C6>* SGNCXl) 

9670 FOR YY=YY TO (YY+Yl) STEP SGNCY1) 
9680 GOSUB 9700:XX=XX+C4:NEXT 
9690 RETURN 
9695 : 

9699 REM******************************** 


SUBROUTINE 14 

PRINT (XH,YH) 

Per poter scrivere in alta risoluzione non possiamo usare l’i¬ 
struzione BASIC /PRINT/ ma dobbiamo usare questa SUBROU- 
TINE, che scrive la stringa M3$ nella posizione indicata dalle 
due coordinate XH (colonna da 0 a 39) e YH (riga da 0 a 24). 

DI REM*******SUBR0UTINE #14*********** 

9403 REM PRINT ALTA RISOLUZIONE 
9405 REM******************************** 

9407 REM 
9409 REM SCOPO: 

9411 REM QUESTA SUBROUTINE STAMPA UN 
9413 REM MESSAGGIO IN ALTA RISOLUZIONE 
9415 REM 

9417 REM PRIMA DEL [GOSUB 95003; 

9419 REM XH > RIGA (0-39) 

9421 REM YH > COLONNA (0-24) 
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9423 REM M3$ > MESSAGGIO DA STAMPARE 
9425 REM 

9427 REM DOPO IL LGOSUB 9500]: 

9429 REM CO < ? USATE 

9431 REM CI < ? PER 

9433 REM C2 < ? CALCOLI 

9435 REM C3 < ? INTERNI 

9437 REM C4 < ? 

9439 REM M2$ < ? 

9441 REM 

9489 REM******************************** 

9499 : 

9500 C0=8192+XH*8+YH*320 

9510 C1=LEN(M3$):IF C1=0 THEN RETURN 
9520 POKE 56334,PEEK(56334) AND 254 
9524 POKE 1,PEEK(1) AND 251 
9530 FOR C2-1 TO C1:M2$=MID$(M3$,C2,1) 
9540 C3=ASC(M2$):IF C3>63 THEN C3=C3-64 
9550 FOR C4=0 TO 7 

9554 POKE (G4+C0),PEEK(53248+C4+8*C3) 

9560 NEXT :C0=C0+8:NEXT 

9570 POKE 1,PEEK(1) OR 4 

9574 POKE 56334,PEEK(56334) OR 1 

9580 RETURN 

9589 : 

9599 REM******************************** 
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SUBROUTINE 15 

BASSA RISOLUZIONE 

Per tornare dalla Alta Risoluzione alla solita pagina testo del 
BASIC basta chiamare questa SUBROUTINE, che effettua la 
pulitura dello schermo come la SUBROUTINE 1. Attenzione: 
può capitare che le variabili BASIC “sporchino” la pagina grafi¬ 
ca. In questo caso rilanciamo di nuovo il programma con RUN/ 


9801 REM******SUBR0UTINE #15************ 

9803 REM BASSA RISOLUZIONE 

9805 REM******************************** 

9807 REM 

9809 REM SCOPO: 

9811 REM QUESTA SUBROUTINE ESCE DALLA 

9813 REM ALTA RISOLUZIONE, ESEGUENDO 

9815 REM L'INIZIALIZZAZIONE DELLO 

9817 REM SCHERMO (USA SUB #1). 

9819 REM 
9821 REM 

9823 REM PRIMA DEL CG0SUB 99001: 

9825 REM PR$ > DEVE CONTENERE IL TITOLO 
9827 REM 

9829 REM DOPO IL CGOSUB 99001: 

9831 REM (VEDI SUB. fi) 

9833 REM 

9835 REM******************************** 
9837 : 

9900 POKE 53265,PEEK(53265) AND 223 
9910 POKE 53272,PEEK(53272) AND 247 
9920 GOTO 8000 
9989 : 

9999 REM******************************** 
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Se desiderate essere tenuti al corrente delle novità delle nò- 
stre collane compilate e spediteci in busta chiusa il tagliando 
sottostante. Vi terremo periodicamente informati. 

Se desiderate sottoporci, per una eventuale pubblicazione, 
dei vostri specifici lavori, programmi o esperienze sui compu¬ 
ter più diffusi, o più recenti, inviateci degli esempi, anche par¬ 
ziali. Saremo lieti di esaminarli e, nel caso, di prendere con¬ 
tatto con Voi. 

Saranno inoltre molto gradite eventuali osservazioni, segna- ' i 
lazioni, modifiche o aggiunte ai programmi del presente libro, ; 
nonché proposte e suggerimenti per successive pubblicazioni. 

Inviare a 

GREMESE EDITORE Via Virginia Agnelli, 88 - 00185 ROMA 


Desidero essere tenuto al corrente della pubblicazione delle 
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Tanti fantastici programmi, 
appositamente ideati e realizzati secondo gli attuali 
programmi scolastici italiani 
per garantirvi un migliore approccio alla materia, 
una migliore comprensione, 
uno studio più razionale e meno faticoso 
sfruttando al massimo tutte le meravigliose possibilità 
del vostro... compagno di giochi! 

Tra gli argomenti trattati in questo libro: 
Programmi, accuratamente spiegati. 

CHE SPAZIANO IN TUTTI I CAMPI DELLA FISICA. 
MECCANICA. STATICA. FLFJIDICA. ACUSTICA. OTTICA, 
ELETTRICITÀ. TUTTE TOCCATE, NEI LORO PUNTI 
NEVRALGICI, IN MODO DA AVERE UN AUTENTICO 
TRAMPOLINO DI LANCIO NON SOLO PER LO STUDIO 

della Fisica ma anche per la sua concreta 

UTILIZZAZIONE. 

Cambiate la vostra scuola, 

Migliorate il vostro rendimento 
Mettete il computer al vostro servizio! 

Con questo libro non solo scoprirete con amici r 
insegnanti nuove prospettive, nuove dimensioni, 
ma imparerete voi stessi a modificare i programmi 
proposti o a realizzarne altri, sempre nuovi, personali, 
per le vostre specifiche esigenze. 
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